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iese Ausgabe 1 ist die 
letzte RUN, die monat- 
lich erscheint. Aber viel- 
leicht geht es uns genauso 
wie dem C64. Auch der hat die letzte 
Salbung schon mehrmals erhalten: 
Skeptiker erklärten bereits vor zwei 
Jahren, daß die C64/128-Ära sich ih- 
rem Ende nähere. Die Möglichkeiten 
eines Computers müßten nach fünf 
Jahren einfach ausgeschöpft sein... 
Dann kann eh nichts Neues mehr 
kommen. So erscheint auch das näch- 
ste RUN-Sonderheft bereits am 7. 
März und befaßt sich ausführlich mit 
Spielen, Tips, Tricks, Programmen 
und Basteleien. Wir schöpfen dabei 
aus dem Vollen: Hardwareerweiterun- 
gen und Software brachte das vergan- 


Die Diskette zu dieser Aus- 
gabe ist bis 31. Januar 1988 
über CW-Publikationen, 
Kennwort RUN-o-thek, 
Postfach 400429, 8000 


München 40, erhältlich. 
Preis 24,80 DM incl. 
Achtung: Ab sofort 
telefonisch bestellt werden. 
Tel.-Nr. 0 89/3 60 86-2 46 


kann 
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gene Jahr in Hülle und Fülle. Der 
Amiga-Ball hüpfte bereits zu Beginn 
des Jahres auf dem Oldtimer, ein Pha- 
rao grinste am C64-Bildschirm. Hard- 
ware-Hersteller überraschten mit noch 
besseren und preiswerteren Erweite- 
rungen für die Commodore-Familie. 
Floppy-Speeder haben 1987 die physi- 
kalisch höchstmögliche Schreib-Lese- 
Geschwindigkeit erreicht, der C64 
wurde auf 4 MHz-Speed getunt, eine 
Entwicklung aus der Schweiz macht 
Amiga-Grafik auf dem C128 möglich. 
Nicht zuletzt haben auch RUN-Leser 
die Einsatz- und Ausbaumöglichkeiten 
des C64 verbessert: Noch nie wurden 
in einem Jahr so viele Bauanleitungen 
veröffentlicht wie 1987 — vom C64 als 
Batterieladegerät über Videotext-Ver- 
arbeiter bis hin zur 512-KByte-RAM- 
Speichererweiterung. Ganz zu schwei- 
gen von Hunderten veröffentlichter 
Listings, Tips und Tricks, die Pro- 
grammieren und Arbeiten am Rechner 
zum Vergnügen machen. 

Und noch immer ist nicht Schluß — 
ein Blick auf die Exklusiv-Testberichte 
und Produktvorstellungen dieser Aus- 
gabe zeigen’s. Gerüchte, das Amiga 
dem C64 Wasser abgräbt, sind inzwi- 
schen weit verbreitet. Doch komisch, 
da kommt aus den Staaten doch glatt 
ein Produkt, das Commodores Freun- 
din verwandelt und mit neuem Make- 


up erscheinen läßt, nämlich hellblauer 
Schrift auf dunkelblauem Hinter- 
grund — der C64-Emulator für den 
Amiga. 

Zum (zunächst nur vorläufigen) 
Schluß, noch ein paar Hinweise: Mit 
der nächsten Amiga-Welt (Erstver- 
kaufstag 19. 2. 1988) sehen wir uns 
wieder. Unsere Abonnenten brauchen 
sich keine Sorgen machen, sie erhalten 
von uns einen Brief, in dem steht, wie 
es weitergeht. Wer sonst noch Fragen 
hat, kann sich an die Redaktion unter 
der Rufnummer: 0 89/3 60 86-2 10 
wenden. 
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Neuer Monitor für universellen Einsatz 
Am Monitor 2002 lassen sich alle Commodore- 
Computer anschließen 6 


Bei Spaß kein Spiel 
Darf in deutschen Firmen der Arbeitsplatzcomputer 
auch dem Spieltrieb dienen? 


Unter Geos programmieren 
Für komfortables Programmieren wird jetzt auch ein 
Geos-Tool angeboten 


Amerika, Du hast es besser 
Telekommunikation im Land der unbegrenzten 
Möglichkeiten 


Rund um die 1541 
In diesem Grundlagenartikel werden wichtige 
Funktionsweisen der intelligenten Commodore- 


16 


Floppy erklärt 20 
Mit C vom C64 zum Cray 

Selbst mit dem C64 lassen sich Profiprogramme 

schreiben. Dank C öffnen sich die Türen zur 

gesamten Rechnerwelt 30 


Da ist der Amiga baff 
Mit einem neuen Spielkonzept fordert der Amiga 


seine Gegner heraus 34 
Perfekter Wortumgang 

Textverarbeitung auf dem Amiga bleibt für die User 

ein Reizthema. Nahezu perfekt, jedoch kostspielig, 

ist die Schriftsetzung mit WordPerfect 39 


Die Grafik- und Rechenfähigkeiten des Amiga werden durch das Listing 
„Proplot“ für eine hervorragende Hausaufgabenhilfe genutzt. Seite 40 
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Über Kurven diskutieren 
Was der Schüler fürchtet, ist eine Lieblingsbeschäfti- 
gung des Amiga: Funktionen berechnen und grafisch 


auswerten 40 
Galileo, digitaler Sternenforscher 

Sternenforschern gibt dieses neue Programm aus den 

USA wichtige Informationen 45 


Eintippen ohne Fehler 
Wertvolle Hilfe beim Eintippen der Programme 
leisten die RUN-Checksummenprogramme 


48 


2000-Mark-Superlisting: Ein Modul lernt deutsch 
Script/Plus-Support erhält neue Funktionen, Befehle 
und deutsche Umlaute 


Mit Strategie zum Ziel 
Selbstprogrammierte Spiele zu vermarkten, läßt ri 
an Hand dieses Strategiespiels üben 8 


Support für BASIC-Programmierer 
Tolle Zusatzfunktionen, wie TRACE, CLOCK, 


HARDCOPY, erleichtern die Programmierarbeit 64 


Funktionen schnell analysiert mit „FAN“ 
Nullstellen, Ableitungen, Schnittpunkte und Gra- 
phen werden in kürzester Zeit vom C64 berechnet 


68 


Errors überlisten 
Systemfehler müssen nicht zum Programmabbruch 
führen 75 


Grafiken im Großformat 
Selbst der Bildschirmrand des C64 läßt sich als 
Leinwand benutzen 


76 
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Eine komfortable Benutzeroberfläche bietet „Heip-System“, ein Utility 
für den 664. Zum Abtippen auf Seite 64 


Windows im C64 
Mit dieser BASIC-Erweiterung kann jeder Fenster- 


Menüs selbst programmieren 80 
Joystick-Abfrage per Interrupt 

In Spielprogrammen ist diese Routine unverzicht- 

barer Bestandteil . 84 


Sekunden statt Minuten 
Große Schallplattensammlungen werden mit 
„Musikregister“ blitzschnell verwaltet 
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Ein Frosch hüpft um die Wette 
„Ihe Frog“ für den C16 ist schnell abgetippt und 


bringt lange Zeit Spielspaß 88 


C64 als Speicheroszilloskop 
Weniger als 100 Mark kosten die Bastelzutaten, die 
den C64 in ein Oszilloskop verwandeln 


C64 als Soundsampler 
Mit spezieller Hard- und Software wird das Speicher- 
oszilloskop zum Soundsampler veredelt 


Triac-Karte für C64 und C128 
Computergesteuerte Steckdosen sorgen für pünkt- 
liches Erwachen und frischen Toast 


97 


103 


C64 selbst repariert 
Selbermacher finden mit einem neuen Hardware-Set 
den schuldigen Baustein im defekten Computer 


Eprom-Karte für C128 
Endlich gibt es ein Modul, mit dem C128-Program- 
me auf Karte gebrannt werden können 


104 
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Eprom-Karte zum Low-Cost-Preis 
Mit Lötkolben und Schaltplan läßt sich für 10 Mark 
eine Eprom-Karte selber basteln 
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Hobbyelektroniker können viel Geld sparen: Für weniger als 100 Mark 
läßt sich der 664 in ein Speicheroszilloskop verwandeln. Seite 90 
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Doppelflopper-Schaltung für 1541 
Doppelflopper ermöglicht mit einem Trick gleichzei- 
tigen Zugriff auf zwei Laufwerke 112 
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Große Verlosung: Mitmachen und gewinnen 
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Editorial 3 
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Jux für Geschickte: Kühemelken mit dem Joystick in „Westerngames“. 
Seitenweise vergnügliche Spiele finden Joystickmeister ab Seite 123 
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NEUER MONITOR 
FÜR UNIVERSELLEN EINSATZ 


Alle Anschlußnormen 
der heutigen Gommo- 
dore-Gomputer besitzt 
der neue 2002-Monitor 


nterschiedliche 
Wege der Bild- 
datenübertra- 

gung zwischen 
Computer und Monitor las- 
sen die Kaufentscheidung 
für einen geeigneten Bild- 
schirm zur Qual werden. 
Was ist, wenn ein C64-User 
auf den C128 umsteigen 
will? Wenn dann später mal 
ein Amiga ins Haus soll, ist 
dann unter Umständen der 
dritte Monitorkauf fällig, 
während die alten nur mit 
großem finanziellen Verlust 
verkauft werden können. 
Mit all diesen Problemen 
räumt ein neuer Monitor 
von Commodore auf, der, 
für die nächste Zeit ange- 


Composite- [7 


R6B-A a 
(Amiga) re 


Mit drei Anschlußnormen überall dabei. 


6 GEW Januar/88 


© | BOMPUTERWEIT 


Auch äußerlich paßt sich das Multitalent 2002 der Commodore-Palette an. 


kündigt, in den USA schon 
zu haben ist. Er besitzt 
Composite-Video-Eingänge 
für den VC20, C16, Plus/4 
und C64, RGBI für den 80- 
Zeichen-Modus des C128 
und für IBM-Kompatible 
und RGBA-Eingänge für die 
gesamte Amiga-Palette. So 
muß niemand mehr einen 
neuen Monitor kaufen, 
wenn das System gewechselt 
werden soll. Commodore 


verlangt in den USA 399 
Dollar für den 2002, was be- 
deutet, daß der Preis in 
Deutschland sich kaum von 
dem des 1081 unterscheiden 
dürfte. Der 2002 schickt sich 
an, der universelle Commo- 
dore-Monitor zu werden, 
was nicht nur dem User zu- 
gute kommt, sondern Com- 
modore auch günstigere 
Produktionskonditionen be- 
schert. (uk) 


“Zum Glück kommt mit diesem Drucker 
auch jemand klar, der von Physik Null Ahnung 


hat! 


Wir haben an unserer Schule verschiedene 
Computersysteme — bisher hat sich keines 
gefunden, das mit diesem Drucker nicht zusam- 
menarbeitet. Und das ist besonders wichtig: 
Die Schalter, mit denen man dem Drucker sagt 
wie er drucken soll — die sind nicht hinter 
Tausenden von Strippen versteckt. Im Vergleich 
zu einigen anderen Druckern, die wir haben, ist 


das Umschalten beim 120 D echt ein Kinderspiel. 


Ich weiß nicht, was dieser Drucker kostet, 
aber wenn unsere Schule gleich mehrere be- 
kommt, obwohl jeder über das knappe Budget 
jammert — also sehr teuer kann er dann nicht 
sein. Und den totalen Härtetest hat er sowieso 
bestanden. Tanja, Katrin und ich haben sich 
nämlich mal so richtig mit ihm befaßt. Wir sind 
da gar nicht zimperlich! Zusammen mit dem 
richtigen Computer druckt der 120 D auch die 
ausgeflipptesten Zeichen. Ehrlich, das kommt 
viel besser als die alten Geschichten im 
Physikunterricht - ich meine so was wie 'der 
Flaschenzug' oder 'Eisenfeilspäne und Mag- 


netismus..!” 


Neugierig geworden? Einfach anrufen: 
Symelec Datensysteme (089) 5179 0. 
Peripherie Center Deutschland (089) 612 70 60/69. 
Osterreich: Synelec, Wien (0222) 67 02 47. 
Schweiz: CPI S.A., Zürich (01) 7 40 91 71. 


Der Citizen 120 D hat ein serienmäßiges Commodore 


Interface. 


WER KÖNNTE DEN BEISPIEL- 
LOSEN ERFOLG DES 120D 
BESSER ERKLUÄRENS ALS 
JEMAND, DER MIT PHYSIK 
ABSOLUT NICHTS AM HUT HAT? 
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s gibt sie noch, 
die braven, 
pflichtbewußten 
Angestellten, die 
sich am Arbeitsplatz selten 
einen Spaß erlauben, und 
wenn schon, dann höchstens 
in der offiziellen Pause — 
dies natürlich nur mit dem 
Ziel, sich für die Arbeit nach 
der Pause zu erholen. Dieses 
idyllische Bild, das manches 
Arbeitgeberherz höher 
schlagen läßt, malen — et- 
was vereinfacht ausgedrückt 
— einige Abteilungsleiter 
und Anwenderbetreuer bei 
verschiedenen größeren Un- 
ternehmen in der Bundesre- 
publik Deutschland. Die in 
München erscheinende PC- 
Woche wollte von ihnen wis- 
sen, ob Mitarbeiter, die auf 
den firmeneigenen Personal- 
computern Computerspiele 
laufen lassen, anstatt Auf- 
träge zu bearbeiten, ein 
ernsthaftes Problem für das 
Unternehmen darstellen. 
Das Problem existiert offen- 
bar nicht. Die Gründe dafür 
liegen nicht ausschließlich 
im hohen Pflichtbewußtsein 
der Angestellten. Nach der 
Einschätzung der Befragten 
besteht nämlich bei der gro- 
ßen Angestelltenschar gar 
kein gesteigerter Bedarf 
nach Computerspielen, weil 
— und das ist bemerkens- 
wert — die Arbeit selbst ge- 
nug Spaß mache. 

So erklärte die Leiterin der 
Anzeigenabteilung in einem 
schwäbischen Handelsunter- 
nehmen: „Wir haben hier 
gar keine Zeit, uns nebenher 
auf den Personalcomputern 
noch mit Spielprogrammen 
zu beschäftigen. Generell 
dürfen die Mitarbeiter in der 
Pause spielen. Aber ich habe 
bis jetzt bei uns im Büro so 
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Ballern am Büro-PC: 

Geduldet, erlaubt, verboten? Eine Umfrage bei 
verschiedenen größeren Firmen ergab 
überraschende Ergebnisse. Kann es sein, 
daß PC-Spiele bewußt eingesetzt 
werden, um Einsteiger mit dem Gomputer 
vertraut zu machen? 


etwas noch nicht gesehen.“ 
Edith Stockmann, Leiterin 
des Personalcomputer-Be- 
nutzerdienstes von M.A.N. 
in Augsburg, lehnt für sich 
selbst Computerspiele ab: 
„Das ist mir viel zu langwei- 
lig. Wir haben hier zwar ein 
Schachprogramm, aber ich 
spiele lieber mit Menschen 
als mit einem Computer. Bei 
uns im Betrieb gibt es kein 
Verbot für Computerspiele 
während der Arbeitszeit. Es 
hat in dieser Richtung auch 
noch keine Probleme gege- 
ben.“ Sicherlich brächten 
einige Anwender private 
Software mit. „Ich habe ein 
paarmal gesehen, wie Mitar- 
beiter in der Mittagspause 
auf dem PC ein Spiel laufen 
ließen.“ Edith Stockmann 
ist aber überzeugt, daß die 
meisten Spiele für intelligen- 
te Anwender schnell ihren 
Reiz verlieren. Für den Ab- 
teilungschef sei eine wirksa- 
me Kontrolle kaum mög- 
lich, wenn ein geübter An- 
wender mit schnell um- 
schaltbaren Programmen 
spiele. 


Keine Zeit für 
Spiele 


Manfred Woltschläger, DV- 
Leiter bei der NW Eisen- 
und Metallwaren AG in Ha- 
gen/Westfalen, erläutert die 
„Spielpolitik“ seiner Firma: 
„Während der Arbeitszeit 
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darf niemand bei uns ein 
Spielprogramm auf dem 
Personalcomputer laufen 
lassen. Im Grunde hat auch 
kein Mitarbeiter die Zeit, 
sich stundenlang mit 
Schachproblemen zu befas- 
sen. In den Pausen können 
die Benutzer spielen, soviel 
sie wollen. Das habe ich öf- 
ters bemerkt. Wird jemand 
zufällig während der Büro- 
stunden beim Spielen er- 
wischt, ermahnt ihn der 
Vorgesetzte — besondere 
Strafen hat es aber noch 
nicht gegeben.“ 

Auch das von den Hackern 
im Büro oft über Gebühr be- 
triebene Ausprobieren eines 
neuen Programmes wird bei 
NW nicht geduldet: „Alles, 
was über die notwendigen 
Tests hinausgeht, betrachten 
wir als Spielerei.“ 

Auf den zwei Personalcom- 
putern, die in der Verwal- 
tung der Essener Stadtwerke 
stehen, darf auch in den 
Pausen nicht gespielt wer- 
den. Harald Wittbecker, 
Leiter der Abteilung Infor- 
mationsverarbeitung, er- 
klärte dazu: „Bei uns läuft 
die meiste Software auf dem 
Großrechner — da sind zur 
Auflockerung ein paar 
Spielprogramme dabei. 
Aber auf den Personalcom- 
putern möchten wir das 
nicht haben; die Mitarbeiter 
dürfen auch keine eigenen 
Disketten mitbringen.“ 


Hilmar Heitz, DV-Koordi- 
nator bei der Roth-Händle 
GmbH in Lahr, gab folgen- 
de Auskunft: „Unsere Mit- 
arbeiter dürfen nur in den 
Pausen Spielprogramme auf 
den Personalcomputern lau- 
fen lassen. Es gibt allerdings 
keine besonderen Anweisun- 
gen in dieser Richtung. Wir 
hoffen, die Mitarbeiter be- 
greifen selber, daß es vor al- 
lem in den Fachabteilungen 
mit Publikumsverkehr einen 
schlechten Eindruck macht, 
wenn sich jemand während 
der Arbeitszeit mit einem 
Spielprogramm amüsiert.“ 
Ausnahmen gebe es nur, 
„wenn Neulinge an den Per- 
sonalcomputer herangeführt 
werden sollen.“ 

Den Anfängern zeige man 
neben den beruflichen An- 
wendungen auch Spiele, um 
sie stärker zu motivieren. 
„In der Praxis hat sich das 
bewährt und wird recht po- 
sitiv beurteilt.“ 

Welche Spiele sind bei Roth- 
Händle zur Zeit die Favori- 
ten? Hilmar Heitz nennt ne- 
ben Schach und dem Bild- 
schirmsport „Zehnkampf“ 
auch „Schiffchen versen- 
ken“. In der Regel hätten die 
Benutzer die meisten Spiele 
aber nach kurzer Zeit satt. 
Unerlaubte Bildschirm-Un- 
terhaltung wirksam zu kon- 
trollieren, sei indes kaum 
möglich. Heitz glaubt nicht, 
daß seine Kollegen bei Roth- 
Händle viel Gelegenheit zum 
heimlichen Spiel haben: 
„Langweile lassen wir hier 
im Büro nicht aufkommen.“ 
Paul Wullers, Leiter der An- 
wendungsdienste bei Nek- 
kermann in Frankfurt, ver- 
hindert das Spielen durch 
Sperren im System: „Wir er- 
lauben den Einsatz weder 


während der Arbeitszeit 
noch in den Pausen. Die Be- 
nutzung von Privatdisketten 
auf unseren Personalcom- 
putern ist verboten.“ 


Neckermann 
macht ’s 
möglich 


Außerdem hätten die Be- 
treuer eine „Neckermann-ei- 
gene Benutzermenü-Ober- 
fläche“ über die Personal- 
computer-Anwendungen ge- 
strickt. Deshalb sei der Be- 
nutzer nicht ohne weiteres in 
der Lage, eigene Disketten 
einzulesen. „Da wurden etli- 
che DOS-Befehle ausge- 
schaltet, und wir protokol- 


lieren die Anwendungen.“ 
Darüber hinaus gebe der Be- 
nutzerservice nur formatier- 
te und numerierte Pro- 
grammdisketten aus. „Da- 
mit verhindern wir von 
vornherein das heimliche 
Spielen während der Ar- 
beitszeit.“ 

Natürlich könnten „wirkli- 
che Freaks und Hacker“ die 
Sperren umgehen, und man 
habe auch gelegentlich An- 
wender beim unerlaubten 
Spielen überrascht. Diese 
Mitarbeiter seien belehrt 
worden, „weil ja auch jeder 
einen Datenschutz-Passus 
unterschrieben hat.“ Härte- 
re Maßnahmen seien noch 
nicht nötig gewesen. 
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Beim Testen neuer Pro- 
gramme dürfen sich bei Nek- 
kermann die Freaks aller- 
dings austoben und Soft- 
ware bis in den letzten Win- 
kel ausloten. „Unsere Profis 
erfüllen damit eine Pilot- 
funktion für die Kollegen. 
Sie werden dazu angehalten, 
hinterher eine mündliche 
oder schriftliche Berichter- 
stattung über ihre Erfahrun- 
gen zu liefern.“ 

Auch die Nestle-Gruppe 
weiß die Spiellust ihres kon- 
zerneigenen Computer- 
freasks gezielt zugunsten des 
Unternehmens zu nutzen: 
Hans Jürgen Wallstein, Lei- 
ter des Bereiches Organisa- 
tion für Vertrieb und Distri- 


bution in Frankfurt, beton- 
te, der einzige Freak unter 
den Personalcomputer-An- 
wendern dürfe nach Her- 
zenslust neue Programme 
testen, auch wenn das in den 
Augen mancher Kollegen in 
Spielerei ausarte: „Der 
macht das ja stellvertretend 
für das ganze Haus.“ Auch 
sonst sei Nestle nachsichtig 
mit den Spielern: „Offiziell 
ist das Spielen während der 
Arbeitszeit zwar nicht ge- 
stattet,“ aber die Abtei- 
lungsleiter wüßten, daß die 
Mitarbeiter gelegentlich 
Spiele wie „Zehnkampf“ auf 
den Bildschirm holten. 
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UNTER GEDo 


PROGRAMMIEREN 


Neu von Berkeley ist ein 
Programmierpaket für den C64, um komfortabel 
eigene Programme entwickeln und 
dabei die Vorzüge des Geos-Betriebssystems 
ausnutzen zu können. 


er 
GEOS, die 
grafische Be- 
nutzeroberflä- 
che für den C-64, zu schät- 
zen gelernt hat, wird sich 
über eine Neuankündigung 


der Berkeley Softworks 
freuen. GeoProgrammer ist 
ein komplettes Entwick- 


lungspaket für 6502-Assem- 
bler. Das Programm ist 
kompatibel zu den anderen 
GEOS-Formaten. Als Edi- 
tor für den Sourcecode wird 
GeoWrite verwendet, die 


Textverarbeitung aus der 
GEOS-Serie.. Kommentare 
lassen sich durch andere 
Schriftarten kenntlich 
machen. Sollen Grafiken in 
Programme eingebunden 
werden, erstellt man sie am 
besten direkt mit GeoPaint. 
Im Listing erscheinen die 
Bilder nicht mehr als Zah- 
lenkolonnen, sondern als 
Grafik. 

Das Programmpaket besteht 
aus GeoAssembler, GeoLin- 
ker und GeoDebugger. Geo- 
Assembler liest den Source- 
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code aus GeoWrite-Doku- 
menten und trägt seine Feh- 
lermeldungen in die Doku- 
mente ein. 

GeoLinker übernimmt Ver- 
knüpfungsstrukturen der 
GeoWrite-Dokumente und 
liest die von GeoAssembler 
erzeugten relokalisierbaren 
Objektmodule. 
GeoDebugger definiert die 
RAM-Erweiterung als Mo- 
nitorbereich, so daß wäh- 
rend der Fehlersuche der 
maximale Speicherbereich ge- 
nutzt werden kann. Weitere 
Features sind ein Speicher- 
monitor, LineDisassembler 
und LineAssembler, um 
nachträglich etwas einzuflik- 
ken. Alle Ergebnisse doku- 
mentiert GeoDebbuger in ei- 
nem eigenen Textfenster, 
ohne den Grafikscreen zu 
beeinflussen. Mit GeoPro- 
grammer wird die Geospa- 
lette um ein wichtiges Utility 
erweitert. Geos entwickelt 
sich zu einem ernsthaften 
Betriebssystem für den C64 
und wird in Zukunft ganz 
sicher immer mehr Freunde 
gewinnen. 


(ra) 
Info: M&T, Haar Oo 


VideoScape 
3D in PAL 


Für Anfang November kün- 
digt Aegis die Auslieferung 
der PAL-Version von dem 
Animationsprogramm 

VideoScape 3D inklusive ei- 
ner deutschen Übersetzung 
an. Wer bereits eine NTSC- 
Version besitzt, kann bei 
Softwareland Zürich die 
Upgrade-Version erwerben, 
wenn er die Originaldiskette 
und das Manual zurück- 


schickt. 

Info: Softwareland, 

Franklinstr. 27, CH-8050 Zürich, 
Tel.: 00 41-1/3 11 59 59, 

Preis: 199,95 US-$. 


Mit der deutschen Version von 
VideoScape 3D läßt sich der 
komplette PAL-Bildschirm nutzen 
und man verfügt über eine 
verständliche Anleitung. 
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Drucken durch 
die Steckdose 


Vernetzung ist nicht die ein- 
zige Möglichkeit, Daten in 
separaten Räumen auszu- 
drucken. Ingenieure entwik- 
keln eine interessante Alter- 
native. Jetzt ist Schluß mit 
Druckerlärm im Büro. Mit 
„Printer Line“ lassen sich 
die Daten über das Strom- 


& | EOMPUTERWEIT 


„Aon/Xoff“ und das Hard- 
ware-Handshake-Protokoll, 
das über die Leitungen DTR 
(=Data Terminal Ready) 
und DSR (= Data Set 
Ready) abgewickelt wird. 
Der Empfänger deaktiviert 
das Signal DSR solange, bis 
der Puffer soweit geleert ist, 
daß er neue Daten aufneh- 
men kann. Dabei können 
mehrere Computer mit ei- 


Mit Hilfe von “Printer Line“ können mehrere Rechner ihre Daten durch 
die Steckdose in den Druckerraum senden. 


netz in einen Druckerraum 
transferieren. Für diesen 
Vorgang müssen keine 
Hardware-Veränderungen 
vorgenommen, sondern nur 
die zwei Zusatzgeräte instal- 
liert werden. Eines wird an 
die V 24-Schnittstelle (seriel- 
ler Port) angeschlossen und 
einfach in die Steckdose ge- 
steckt. Am Printer wird ein 
identisches Gerät ange- 
bracht, um die Übertragung 
zu ermöglichen. Bis zu einer 
garantierten Übertragungs- 
geschwindigkeit von 2400 
Baud wandern die Daten 
durch das Stromnetz in den 
Raum, wo der Drucker 
steht. Während des Daten- 
transfers werden mehrere 
Übertragungsprotokolle 
gleichzeitig unterstützt: das 
reine Software-Protokoll 
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nem Drucker verbunden 
werden; LED’s zeigen an, 
wenn die Verbindung durch 
einen andereri Teilnehmer 
belegt ist. Es ist sogar mög- 
lich, mit „Printer Line“ Da- 
tentransfers von einem 
Computer zum anderen vor- 
zunehmen, sofern sie eine 
serielle Schnittstelle besit- 
zen; ein 
Software-Paket ist verfüg- 
bar. Als einziges Problem 
könnte sich bei diesen Tech- 
niken das 3-Phasen-Strom- 
netz erweisen; dem kann je- 
doch durch einen Phasen- 
koppler (z. B. der Fa. Gira) 
abgeholfen werden. Im Ver- 
gleich zur Vernetzung ist 
“Printer Line“ also eine sehr 


preisgünstige Alternative. 


Info: Beust & Hermstedt, Käferthaler 
Str. 164, 6800 Mannheim 1 DO 


LENZ TER ER EN, 


entsprechendes 


Blick nach vorn 


Die Herausgeber des Com- 
puter Industry Almanach, 
ein 780 Seiten starkes Nach- 
schlagewerk für die ameri- 
kanische Computerindu- 
strie, haben einen Blick in 
die Zukunft gewagt. Sie 
wollten wissen, wie der typi- 
sche 5000-Mark-Computer 
im Jahre 1991 aussieht. Die 
Journalisten prognostizie- 
ren, daß diese Computer die 
zehnfache Leistungsfähig- 
keit, zwölfmal so großen 
Hauptspeicher und 100fach 
größere Massenspeicher ha- 
ben werden. High-Speed- 
Netzwerk-Modems sind ih- 
rer Meinung nach in Zu- 
kunft fest eingebaut. (ar) 


C128 mit 
neuer Grafik- 
Auflösung 


In RUN 11/87 wurde ein 
Graphic-Booster vorgestellt, 
der auf dem C128 eine Bild- 
auflösung von 720x 700 Pi- 
xel möglich macht. Seit eini- 
gen Wochen gibt es von 
Commodore eine neue C128- 


Version den C128 DCR im 
Blechgehäuse. 

Die neue Version ist zwar 
vollkompatibel zu den alten 
Modellen, der Grafik-Chip 
wurde jedoch erheblich mo- 
difiziert, Er bietet jetzt alle 
Möglichkeiten, die bei den 
alten C128-Modellen aus- 
schließlich mit der Graphic- 
Booster Hardware machbar 
sind. Im Handbuch des neu- 
en C128 ist hierzu nichts ver- 
merkt. In der Tat läßt sich 
die neue Grafik-Auflösung 
des C128 nicht ohne entspre- 
chende Steuersoftware nut- 
zen. 


Labortauglich 


Einen leistungsstarken So- 
larrechner bietet Sharp mit 
dem EL-586 an, der auch 
bei einem Lichteinfall von 
unter 50 Lux funktioniert, 
da zusätzlich eingebaute 
Batterien die Solarzellen un- 
terstützen. Speziell für Phy- 
siker und Physikstudenten / 
ist der technisch-wissen- 
schaftliche Rechner mit fest 

integrierten physikalischen 

Konstanten ein unentbehrli- 

ches Gerät. Besonders gete- $ 


EPSON stellte auf der Systems in München mit dem LQ-500 die | 
fortschrittliche 24-Nadel-Drucktechnik mit hoher Schriftqualität | 
für den semiprofessionellen Bereich vor. Die Schriftarten Roman | 
und Sans Serif sind standardmäßig enthalten. Beide Schriftarten 

können zusätzlich in den Variationen „Outline“ und „Shadow“ 
dargestellt werden. Ein Aufsatz für automatischen 

Einzelblatteinzug ist als Zubehör verfügbar. 


COMMODORE AMIGA 500 
ALLES GUTE ZU WEIHNACHTEN 


27 
Br | 


2% ee ah (Zr ae 
x CAD-Anwendungen 


u 


un 
| Softwarehaus 
| Robert Kaiser 


| Gärtnerweg 42 


ABB München 13 
Ann:Hard & Software 


te 8 4 
Super-Unterhaltung 


Dieses Weihnachten gehen die schönsten Wünsche in Erfüllung. Denn jetzt ist er da, der 

Computer, der keine Wünsche offen läßt. MS-DOS-fähig, Super Grafik, Animation, 

Multitasking, Text, Sprache, Musik und, und... Einer, der einfach alles kann, 

wovon man bisher nur zu träumen wagte. 

Der Commodore Amiga 500. Zu einem Preis, bei dem selbst 

der Weihnachtsmann nicht nein sagen kann. \ N 
ha bh un hu he Sn Khan { “ 


. \ —— 
Alles Gute zu Weihnachten. Commodore Amiga 500 - RT ren u € 


vom Marktführer bei Mikrocomputern. ommot ri 


noadore 


EN EBEN NER NEN, 


Neu auf der SYSTEMS: Sharps 
EL-586 für Physikstudenten 


stet wurde er für die Arbeit 
im Labor: wasserdicht, su- 
perdünn, ohne Tasten im 
Eingabefeld und mit LCD- 
Anzeige hält er allen Anfor- 
derungen der Laborarbeit 
stand. Eine Vielzahl von 
physikalischen Berechnun- 
gen sind fest verdrahtet. 


Dazu gehören die Beschleu- 
nigung im freien Fall, die 
Gravitationskonstante, die 
Berechnung der Lichtge- 
schwindigkeit im Vakuum, 
die Avogadro-Konstante, 
die Boltzmann-Konstante, 
die Faraday-Konstante, das 
Molekular-Volumen eines 
idealen Gases, die molekula- 
re Gas-Konstante, die Ele- 
mentar-Ladung, die Masse 
des Elektrons, des Protons, 
des Neutrons, die Masse der 
Atomeinheit, die Permeabi- 
lität des Vakuums, die 
Planck-Konstante, der 
Bohrradius, die Rydberg- 
Konstante und viele andere. 


MS-DOS 
Zwerg mit 
Riesenspei- 
cher 

Der Handheld-Computer 
EPSON PX-16 läßt sich auf 
Basis des Grundmoduls (1) 
mit residentem MS-DOS Be- 
triebssystem 3.2, 8088-kom- 
patibler V20 CMOS CPU 
(10 MHz) und 256 KB Ar- 
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beitsspeicher für jeden Ein- 
satzzweck maßgeschneidert 
ausrüsten. Im Grundmodul 
sind Schnittstellen für seriel- 
le und parallele Datenüber- 
tragung, Barcode-Lesestift 
sowie herausgeführter 
Systembus enthalten (13). 


Von unten können 3W%-Zoll- 
Diskettenspeicher, kombi- 
niert mit 20-MB-Harddisk, 
angesteckt werden (3). 


Rückseitig sind zwei Steck- 
plätze vorhanden. Der erste 
(4) für 80 Zeichen supertwi- 
sted LC-Vollbildschirm (9), 
40 Zeichen LCD (10) und 
Cartridge mit CRT-Moni- 
toranschluß und FD-Inter- 
face (5). Im zweiten Steck- 
platz (6) befindet sich der 
42-Zeichen-Minidrucker 
(11). An der Frontseite des 
Basismoduls wird eine 
Schreibmaschinentastatur 
(7) oder wahlweise ein 
Touch-Key-Panel mit zu- 


Jetzt ist Schluß mit dem 


Gerangel, wer als erster 
drucken kann. Der 
AutoSwitch von MISCO 
entscheidet automatisch 
und überwacht dann Job, 
Ablauf und Kontrolle. 
Neben dem zeitlich ge- 
ringeren Aufwand, stellt 
der MISCO AutoSwitch 
sicher, daß die Drucker 
immer ausgelastet sind 
und auf Grund der auto- 


we TER he eh, 
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Modulbauweise zeichnet den Epson PX-16 aus. 


sätzlichem Ziffernblock (8) 
befestigt. 
1,4 MB RAM durch „Huk- 
kepack“ auf Hauptplatine, 
auf 1,5 MB ROM im Fach 
an der Geräteunterseite. Zu- 
sätzliche serielle Schnittstel- 
le (12) auf Position (2). 


Info: Epson, 
Zülpicher Str. 6, 
4000 Düsseldorf, 
Tel.: 02 11/5 60 30 


matisierten Kontrolle 
kommen jetzt vier Com- 
puter mit nur zwei Druk- 
kern aus, die auch simul- 
tan betrieben werden 
können. Detaillierte In- 
formationen erteilt der 
kostenlos erhältliche 
MISCO Katalog, der alle 
sechs Wochen erscheint 
oder das MISCO Service- 
team unter der Telefon- 
nummer: 0 61 05/40 10 


Aufrüstung auf 


Neues 
Drucker- 
Interface von 
Wiesemann 


Mit dem Modell 92128 GTI 
erweitert Wiesemann die Pa- 
lette von Druckerinterfaces 
für C64/C128. Das neue In- 
terface für Anschluß von 
Centronics-Druckern, hat 
standardmäßig einen Druk- 
ker-Puffer von 128 KByte. 
Es ist vollkompatibel zu 
Parallel-Speedern als Speed- 
DOS, GEOS und ähnlichen 
Programmen. Der komplet- 
te C64/C128 wird vom In- 
terface unterstützt. Auf dem 
taschenrechnergroßen Inter- 
face-Gehäuse befinden sich 
sechs Tasten mit LED-Kon- 
trollanzeigen. Mit den Ta- 
sten können folgende Funk- 
tionen aufgerufen werden; 
Clear (löscht Buffer), Copy 
(Kopierfunktion), Dump al- 
ler Einstellungen, Monitor- 
Mode, Line-Feed-Mode, 
Wahl der Sekundäradres- 
sen-Funktionen. Von 
BASIC aus kann das Inter- 
face mittels PRINT #-Be- 
fehlen angesprochen wer- 
den. Sämtliche Einstellun- 
gen werden nichtflüchtig in 
einem EEPROM gespeichert 
und bleiben daher auch 
beim Abschalten der Anlage 
erhalten. 

Das neue Interface ist für 


198 Mark zu haben. Zum > 


| 


FONTMASTER 


Endlich auch in Deutschland ! 


Bevor Sie weiterlesen, sehen Sie sich das Schreiben rechts unten an - Nun ? Beeindruckend, nicht wahr ?-- Vor allem, 
wenn man bedenkt, daß dieser Brief nur mit FONTMASTER, einem C-64 und einem einfachen Drucker erstellt wurde. 
Über 100 Zeichensätze stehen bei diesem Textprogramm zur Verfügung. Haben Sie keine Angst vor dem berühmten 
ProblemderDruckeranpassung-mehrals 100Druckerund 15lnterfacessindbereitsangepaßt!ObSiemathematische 
Formeln erstellen oder "einfach" Schriften vergrößern, verkleinern, verbreitern bzw. verschmälern möchten - 


In agglehn ist das mit FONTMASTER kein Problem. 


Mehr als 30 / 45 Zeichensätze werden 

mitgeliefert (C-64 / C-128). 

Zum Erstellen beliebiger Zeichen- 

sätze ist ein Font-Designer mit dabei. 

Kopf- und Fußzeilen. 

Komfortable Cursor-Steuerung 

Textdarstellung beim C-64 in echten 

80 Zeichen möglich. 

Textdarstellung beim C-128 original- 

getreu möglich (mit geänderten Zei- 

chensätzen). 

® Graphiken können in den Text einge- 
bunden werden (nur C-128). 

® Zeilenabstände wählbar 

® Beliebige Tabulatoren. 

® Kopierspeicher. 

® Ausschnitte abspeichern. 

® Texte zentrieren. 

® Zeilen rechts- oder linksbündig 

® Textbereiche suchen und ersetzen. 

® Ränder frei einstellbar. 

® ASCH Files können eingelesen und 
ausgegeben werden (für die Kommuni- 
kation mit anderen Programmen). 

® Komfortable Diskettenhilfen. 

® Word-Wrap und automatische For- 
matierung (abschaltbar). 

® Ständige Anzeige von: Zeile, Spalte, 
belegter Platz, Textname. 

® Von rechts nach links schreiben. 

® Serienbriefe. 

® Bis zu 4 Spalten können nebeneinan- 
der bearbeitet werden (ähnlich dem 
Zeitungssatz). 

® Proportionalschrift. 

® Mehrere Buchstaben übereinander 
druckbar. 

® Folgende Effekte sind kombinierbar: 

Unterstreichen / mehr als 20 Text- 

breiten / mehr als 50 Zeilenabstände / 


verdichteter / verbreiteter Text / Fettdruck / 


Negativdruck | hoch- und tiefstellen / 
3 Texthöhen. 
® Druckerausgänge wählbar. 


Herbert Mayer 
Bahnhofstr. 5 


6000 Frankfurt 5 


Fritz Schulze 
Hauptstr. 5 


8000 München 20 
20.06.87 


Lieber Fritz, 


es ist kaus zu glauben, was san aus des 64er und 128er sit 
den Fontssster-Prograssen noch herausholen kenn! Schrifttypen 
in verschiedensten Forsen und Sprachen. Z.B. ı 


ar. \2 
Sn = 


gerl --ı 


s.=8 


= ._ 2 - 


A A a Te 


Futura au Engtisen Schatten PRRPENcHa iv Klnıa uch) 


und noch einige Typen sehr. Die einzelnen Typen lassen sich 
teilweise noch sit unterstreichen, "”*°°"- und 
kombinieren. 


siersteilien 


Es gibt such noch griechisch, hebräisch und russisch. 
Maximal 9 verschiedene Zeichensets kann ich gleichzeitig 
laden, 30 werden bei der 64er Version und soger 45 bei der 
128er Version sitgeliefert. 


Auf den 128er können such 
werden. Sie sind dann ganz 
plazieren. Es stehen sowohl 
rung als auch für die Größe 
Befehle zur Verfügung. Der 
die Graphiken verteilt wer-*J 


Wenn sir der Zeichen- und] L inner 
noch zu wenig ist, kann ich sit dem Font-Designer 
noch neue Zeichensets erstellen. 


Sorus, derlert 


PS _:Diesen Text hebe ich suf meines slten 9-Nedel-Hetrix- 
Drucker verfasst. 


Auch sein Probles sit dem HMehrspaltensstz ist gelöst: Hit 
Fontsaster kann der Text in bis zu vier Spalten aufgeteilt 
werden. Das sieht bei zwei Spalten so aus : 


Dies ist die erste Spalte. Man suss nur darauf sch- 
Mit den Spaltensstz bekoast ten, die Worte passend zu 
der Text ein etwas profes- trennen, desit keine zu 
sionelleres Aussehen. Er großen Zwischenräuse ent- 
wird dadurch, wie bei Zei- stehen. 
tungen etwas lesbarer. 


Am schnellsten bedienen wir 


® Bestellcoupon Sie telefonisch ! 


RAAB-Bürotechnik, Friedhofstraße 36, 
8605 Hallstadt, @ 0951/200055 
| Bitte senden Sie mir / uns: 


| Senden an: 


FONTMASTER erhalten Sie für den C-64 und 


für den C-128 (128 er Modus) - mit ausführlichem 


deutschen Handbuch. DM 98,-- 


RAAB-Bürotechnik 
Friedhofstraße 36: 8605 Hallstadt 


= 09511/200055 


* Sämtliche Preise sind unverbindlich empfohlene Verkaufspreise 


ML ee ER ee 


| TI FONTMASTER für C-64 
| TO FONTMASTER für C-128 


bezahle ich wie angekreuzt 
ED] per Nachnahme 
| Meine Adresse: 


Den Gesamtbetrag zzgl. DM 5,-- Versandkosten (Ausland 10,--) 


DM 98,- 
DM 98,-- 


DL] Verrechnungsscheck liegt bei 


Lieferumfang gehört ein 
Steckernetzteil zur Strom- 
versorgung des Interfaces. 
Die Vorgänger-Modelle des 
neuen Interfaces sind jetzt 
preiswerter: Das Modell 
92000G kostet 98 Mark 


Vielseitigkeit lautet die Devise bei dem neuen Wiesemann-Interface. 


(vorher 148 Mark), Modell 
92008G ist nun für 128 
Mark statt 178 Mark, erhält- 
lich. 


Bezugsquelle: Wiesemann & Theis 
GmbH, Winchenbachstr. 3-5, 5600 
Wuppertal 2, Tel 02 02/50 50 77 


Flugszenen von Sublogic 


Computerpiloten können 
sich freuen: Für die Amiga- 
Version von Flight II sind 
bisher zwei Scenery Disks 
erschienen. Sie enthalten die 
geographischen Daten von 
dem größten Teil der ameri- 
kanischen Ostküste (Miami, 
Jacksonville, Charlotte und 


v 


So sieht der 
Flight II-Pilot Cape 
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Cornaveral | man; 
LE 


Auf zwölf Disketten verteilt wird 
die USA für den Heimpiloten 


zugänglich sein. 


Washington auf Diskette 7) 
und das Umfeld von Detroit 
(auf Diskette 11). Der Jet- 
Fighter ist allerdings immer 
noch nicht für den Amiga 
erhältlich, obwohl in den 
amerikanischen Magazinen 
schon kräftig dafür gewor- 
ben wird. 


ii 
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Selbstbau-Speicher- 
erweiterung für Amiga 500 


Bei Alcomp-Computerhard- 
ware sind jetzt Leerplatine 
und Stecker zum Selbstbau 
einer 512-KByte-Erweiterung 
für 39 Mark erhältlich. Zum 
Lieferumfang gehört noch 
ein Datenblatt, dem Schalt- 
plan, Bestückungsplan etc. 
zu entnehmen sind. Die 
Schaltung entspricht der von 
Commodore vorgeschlage- 
nen Version. Nach Belieben 
kann auf der Karte ein 
Schalter zum Ausschalten 
der RAM-Erweiterung, an- 


Preisgünstige Speichererweiterung für Amiga 500. 


gebratht werden. Auf der 
Platine ist die Schaltung für 
die Echtzeit-Hardware-Uhr 
berücksichtigt. Der Uhren- 
chip OK16242 und ein Quarz 
sind für 24 Mark erhältlich. 
Bastler haben mit diesem Set 
die Möglichkeit eine äußerst 
preiswerte Speichererweite- 
rung für den Amiga aufzu- 
bauen. 


Die komplett aufgebaute 
Platine kostet 189 Mark. 


Bezugsquellen: Alcomp, Lessingstr. 46, 
5012 Bedburg Tel. 0 22 72/15 80 


Echte Maus für 
64 


Sie nennt sich Commodore 
1351 und ist im Gegensatz 
zu ihrer Vorgängerin nicht 
einfach ein Joystick-Ersatz. 
Die 1351-Maus arbeitet zu- 
sammen mit der richtigen 
Software so akkurat und ef- 
fektiv wie eine Amiga- oder 
Macintosh-Maus. Draufzei- 
gen und Anklicken ist so 
einfach, daß man eine Men- 
ge Zeit spart, die man sonst 
mit dem Durchwühlen von 
Handbüchern verbringt. 
Zwei Metallroller tasten die 
Bewegung des Balles ab, der 


sich an der Unterseite der 
Maus befindet. Über zwei 
Lochscheiben werden diese 
Bewegungen fotoelektro- 
nisch abgetastet und dann in 
Computersignale übersetzt. 
Es bedarf nun noch der 
Software, die diese Signale 
erkennt und verarbeitet. 


Electronic Arts hat eine 
C64-Version des Amiga- 
Programms Instant Music 
angekündigt. Es wird die 
C64-Mausfunktionen voll 
unterstützen. „Mouse Jam- 
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Bücherei für € 


Der Titel verrät es schon: 
Kris Jamsa hatte nicht vor, 
ein Lehrbuch der Program- 
miersprache C zu schreiben. 
In erster Linie ist das 320 
Seiten starke Buch als Nach- 
schlagewerk für den alltägli- 
chen Umgang mit C beim 
Programmieren gedacht. 
Dennoch finden Einsteiger 
didaktische Hinweise und 
Übersichten über die Syntax 
von € in den ersten Kapiteln 
des Buches. Ungewohnt ver- 
ständlich äußert sich Kris 
Jamsa über SYNTAXGRA- 
PHEN, deren Befehlsabläu- 
fe vielen Anfängern ein Ge- 
heimnis bleiben. 

Kapitel zwei behandelt Kon- 
stanten und Makros, die in 
drei Deklarationstabellen 
zusammengefaßt wurden. 
Diese Tabellen erweisen sich 
als nützlich, wenn es darum 
geht, unterschiedliche Com- 


Kris’ Jamsa 


piler anzugleichen. Die wei- 
teren Kapitel beinhalten 
einige interessante Pro- 
gramm-Routinen: Bearbei- 
ten von Zeichenketten — 
Zeiger — Eingabe/Ausgabe 
— Bearbeiten von Feldern 
— Rekursion (zum Beispiel 
Fakultät und Türme von 
Hanoi) — Sortieren z.B. 
Bubble, Shell und Quick- 
sort — Trigonometrische 
- Funktionen und Zeichen- 
konvertierung. 


Eine Besonderheit sind die 
in Kapitel zehn „Bearbei- 
tung von Dateien“ nachvoll- 


zogenen UNIX-Routinen 
(zum Beispiel ECHO, 
HEAD, TAIL, DIFF, 


GREP, MORE). 

Das letzte Kapitel ist aus- 
schließlich der UNIX-Funk- 
tion PIPE gewidmet. Diese 
Funktion ermöglicht Um- 
lenkung der Datenausgabe 
direkt in die Eingaberoutine 
eines zweiten Programms. 
Zu jeder Funktion werden 
außer Quelltext noch Auf- 
ruf-Beispiele, verwendete 
Makros, Funktionen und 
Variablen beschrieben. Zu- 
sätzlich wird in einem 
PSEUDOCODE die Pro- 
blemlösung veranschaulicht. 
Insgesamt sind hier 125 gut 
strukturierte Bibliotheks- 
Funktionen und Makros do- 
kumentiert, die selbst erfah- 
renen Programmierern noch 
Wissenswertes und Neues 


bieten. 

Bibliothek der C-Routinen: Kris Jamsa, 
McGraw-Hill Book Company, Ham- 
burg, 1986, 320 Seiten, 48 Mark. 
(Szymanski) 


Kurslektüre 
für C-Neulinge 


Nicht mehr ganz taufrisch 
ist das C-Buch von tewi. Als 
Standardwerk für C ver- 
dient das Gemeinschafts- 
werk von Unger/Herold je- 
doch auch wiederholte Er- 
wähnung, zumal es ein fan- 
tastisches Buch für Einstei- 
ger ist. Die Autoren nutzten 
ihre mehrjährige Erfahrung 
als Schulungsleiter um ein 
Lehrbuch zu schreiben, das 
sich gleichermaßen zum 
Selbststudium wie auch als 
Kurslektüre eignet. An 
Hand kleiner Programme 
werden die Standardfunk- 
tionen von C erläutert. Im 
weiteren befassen sich die 
Autoren mit Datentypum- 
wandlung, Programmstruk- 
turen, Zeiger u. Vektoren 
und Dateien unter C. 


U EBENE ER en 


Kompliziertere Programme 
sind mit Struktogrammen 
nach NASSI-SCHNEIDER- 
MANN dokumentiert. Auch 
sind gelegentlich Kästchen 
mit Merksätzen und Regeln 
eingeschoben, die zum bes- 
serem Verstehen beitragen. 

Erfreulich ist, daß bei den 
Programmbeschreibungen 

auf die Betriebssysteme 
UNIX, MS-DOS, ISIS und 
CP/M 86 eingegangen wird. 
Zusätzlich sind noch aus- 
zugsweise die STDIO.H Da- 
teien der Betriebssysteme 


aufgeführt. 
(Szymanski) 


Computer- 
Mafia 


„Ihe Hacker’s Dictionary“ 
wurde von einigen Leuten 
des MIT geschrieben. MIT 
ist das Massachusetts Insti- 
tute of Technology und gilt 
bei Insidern als das Mekka 
aller Hacker. Das im 
Münchner Schneider-Verlag 
zum Thema erschienene 
Buch ist eins von der Sorte 
Büchern, die bewußt nicht 
ernsthaft gehalten sind. Es 
will dem Nicht-Hacker eine 
Vorstellung vermitteln, was 
„Hacken“ sein kann und 
soll. Auch Gedanken von 
Hacker-Aussteigern haben 
die Autoren mitaufgenom- 
men — so erklärt sich viel- 
leicht manch Widerspüchli- 


ches. Es erscheinen auch Be- 
griffe, die bei manchem 
Hacker Kopfschütteln her- 
vorrufen werden — trotz- 
dem wurden diese „idioms“ 
aufgelistet, sofern sie nur 
genügend komisch, skurril 
oder subversiv waren. Also, 
bitte nicht alles zu ernst neh- 
men! So wird denn dieses 
Buch eher zur Unterhal- 
tungsliteratur gezählt wer- 
den als zur Fachliteratur. 


„Das Hacker Lexikon“. 


Schneider Verlag, München, 1985, 
219 Seiten. 


Betreten Sie 
das Reich der Hacker 
Where no man 
has been befare 


INS 
ne NE 


Les] 


Tricks bei 
Filmern 
abgeschaut 


Wer mit Amiga oder dem 
C64 Animationen erzeugen 
will, sollte ruhig mal bei den 
Kollegen vom Film rein- 
schauen. Das Buch von 
Heinz-D. Wilden hat nun 
gar nichts mit Computern zu 
tun, jedoch vermittelt es 
jede Menge Wissenswertes 
über die Trickfilmerei. Sto- 
ryboard, Bewegungsabläufe 
werden ebenso erklärt wie 
Arbeitsplatzaufbau und das 
Arbeiten mit der Kamera. 
Wer mit digitalisierten Vor- 
lagen arbeiten will, wird sich 
für alle Teile des Buches 
„Trickfilmen“ interessieren. 


„Trickfilmen“, Heinz-D. Wilden, 
Falken Verlag, Niedernhausen, 
1983, 144 Seiten 
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[I WISSEN 


RUND UM DIE 1041 


Die Gommodore-Floppy VG 1541 


ist eine „intelligente“ Diskettenstation. Ihr mechanisches 
und elektronisches Innenleben wird von einem eigenen 
Mikrocomputer regiert, der sogar vom 664 aus programmiert 


werden kann. 


urch seine „Intelli- 

genz“ bietet sich ein 

Einsatz des Laufwerks 

1541 als Host-Computer 

geradezu an. Das heißt, man könnte 
während im C64 das Hauptprogramm 
abläuft, vom Prozessor der Floppy 
parallel zeitaufwendige Teilaufgaben 
ausführen lassen, deren Ergebnisse bei 
Bedarf übernommen würden. Die 
denkbaren Aufgaben beschränken 
sich dabei keineswegs allein auf den 
Floppy-spezifischen Bereich. Sinnvol- 
le Einsatzmöglichkeiten ergeben sich 
zum Beispiel im Bereich der Grafik. 
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Mehr als nur ein Laufwerk: Die 1541 kann mitrechnen. 


Die Berechnung komplizierter Funk- 
tionswerte, etwa von skalierten 3-D- 
Translations und -Rotationsmatrizen, 
während sich der C64 ausschließlich 
um die Ermittlung der Eingangsdaten 
und die Ausgabe auf dem Bildschirm 
kümmert... 

Da als Mikrocomputer in der Floppy 
eine 6502-CPU arbeitet, die ja direkt 
softwarekompatibel zum 6510-Prozes- 
sor im C64 ist, muß man sich nicht erst 
mit den speziellen Eigenarten eines 
neuen Bausteins vertraut machen — ja 
es lassen sich sogar die vorhandenen 
Assembler und Utilities des C64 ver- 


wenden. Aus diesem Grund dürfte je- 
den, der sich bereits etwas mit Maschi- 
nenprogrammierung auskennt, die 
Möglichkeit reizen, aktiv in die flop- 
pyinternen Abläufe einzugreifen. Die 
Entwickler des Laufwerks haben dies 
scheinbar vorausgeahnt, denn sie 
spendierten sogar einen eigenen „Be- 
nutzerpuffer“ in dem ansonsten mit 
ganzen zwei Kilobyte nicht gerade üp- 
pig ausgefallenen RAM-Bereich. Aber 
bei entsprechender Umsicht lassen sich 
zumindest auch die anderen vier Puf- 
fer mit ihren jeweils 256 Byte mitbe- 
nutzen. Diese Speichergröße“ hört 


sich im Zeitalter der Megabit-Chips lä- 
cherlich klein an; die Erfahrung zeigt 
aber, daß dieser geringe Platz für die 
meisten Anwendungen genügt, zumal 
sich ja viele Routinen aus dem 16 Kilo- 
byte umfassenden DOS im ROM mit- 
benutzen lassen. 


Der gesamte RAM-Bereich der 1541 
umfaßt 2 Kilobyte und belegt die 
Adressen $0000 bis $0800, also dezi- 
mal 0 bis 2048. Tabelle 1 zeigt die Ein- 
teilung dieses Bereiches in Funktions- 
gruppen. 


Folgetrack 

Folgesektor 

Eintrag des 
1. Files 


Eintrag des 
2. Files 


Eintrag des 
3. Files 


Eintrag des 
4. Files 


Eintrag des 
5. Files 


Eintrag des 
6. Files 


Eintrag des 
7. Files 


Eintrag des 
8. Files 


Struktur der Daten auf der Diskette. 


DE a Fe ER Ne 


Adreßbereich 


$0000 — $00FF 
$0100 — 50144 
$0145 — $OIFF 
$0200 — $02FF 
$0300 — $03FF 
$0400 — $04FF 
$0500 — $0SFF 
$0600 — $0O6FF 
$0700 — $07FF 


Tabelle 1: Belegung des Floppy-RAMs 


Aufbau eines jeden 
Eintrags: 


Spur des 1. Fileblocks 
Sektor des 1. Fileblocks 


Filename 
(aufgefüllt 
mit 
Shift Space) 


Nur bei relativen 
Files benutzt 


beim Überschrei- 


ben mit Klammer- 


affe @ 
ahl der 


Highbyte | Blocks im File 


BUSBBESSISSISUSSSESTANTÄAU SUN = S 


N 


1} 
xD 


Verwendung 


Arbeitsspeicher des DOS 

Stackbereich 

Arbeitsspeicher des DOS 

Error- und Kommandopuffer des DOS 


Puffer 0: Arbeitspuffer (aktueller Block) 


Puffer 1: aktueller Block des Directorys 
Puffer 2: Benutzerpuffer, normal frei 
Puffer 3: letzter Block des Directorys 
Puffer 4: enthält Block 18,0 (BAM) 


Hier wird die Aufteilung in Puffer 
deutlich, die bei der 1541, wie wir 
noch sehen werden, eine wichtige Rol- 
le spielen. 


Die Jobs des DOS 


Die Laufwerkselektronik hat mehrere, 

ganz verschiedenartige Aufgaben 

gleichzeitig zu bewältigen: 

® Bedienung des seriellen IEC-Bus- 
ses, 

@ Auswertung der Befehle, 

e Senden oder Empfangen von Da- 
ten, 

e Ein-/Ausschalten des Drivemotors 
und 

e Positionieren des Schreib-/Lese- 
kopfes. 

Aus diesem Grund wird die Interrupt- 

technik vom DOS intensiv genutzt. 

Vor allem werden alle Lese- und 

Schreiboperationen während der IRQ- 

Schleife ausgeführt. Dabei bilden die 

untersten Speicherzellen des RAM-Be- 

reiches, nämlich die Adressen $0000 

bis $0011, eine Schnittstelle zum 

Hauptprogramm der Floppy. Die Be- 

deutung der Speicherplätze zeigt Ta- 

belle 2. 


Funktion 


Jobspeicher für Puffer 0 
($0300 — $03FF) 
Jobspeicher für Puffer 1 
($0400 — $04FF) 
Jobspeicher für Puffer 2 


(80500 — $05FF) 
Jobspeicher für Puffer 3 
($0600 — $06FF) 
Jobspeicher für Puffer 4 
($0700 — $07FF) 
Jobspeicher für Puffer 5 
(nicht implementiert) 
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> 


Track für Puffer 0 
Sektor für Puffer 0 
Track für Puffer 1 

Sektor für Puffer 1 
Track für Puffer 2 
Sektor für Puffer 2 
Track für Puffer 3 


Sektor für Puffer 3 
Track für Puffer 4 
Sektor für Puffer 4 
Track für Puffer 5 
(nicht implementiert) 
Sektor für Puffer 5 
(nicht implementiert) 


Tabelle 2: Bedeutung der 
Schnittstellen-Speicherzellen 


Durch Beschreiben einer der Speicher- 
zellen $0000 bis $0005 läßt sich für den 
zugehörigen Puffer ein bestimmter 
Auftrag (Job) starten. Alle Befehle, 
die sich auf einen Block beziehen, be- 
nötigen zusätzlich noch die Track/ 
Sektor-Angabe in den entsprechenden 
Speicherzellen $0006-$0011. 

Die Aufträge mit ihren Codes zeigt 
Tabelle 3. 


Jobcode Funktion 


$80 Lesen eines Blocks 

$90 Schreiben eines Blocks 
$AO Verify eines Blocks 

$BO Suchen eines Blocks 
$C0 Anschlagen des Kopfes 
(BUMP) 

Programm im Puffer 
ausführen 

Programm im Puffer 
ausführen, nachdem das 
Laufwerk hochgefahren 
wurde. 


$D0 


Tabelle 3: Die Jobcodes und ihre Funktion 


Wie Sie sehen ist bei allen Jobcodes 
das höchstwertige Bit D7 gesetzt. Dar- 
an erkennt die Floppy, daß es sich um 
einen Auftrag handelt, und führt ihn 
während ihrer Interruptroutine aus. 
Nach der Abarbeitung hinterläßt sie 
eine Statusmeldung, deren höchstwer- 
tiges Bit immer gelöscht ist und die 
eventuell aufgetretene Fehler signali- 
siert. Tabelle 4 zeigt die möglichen 
Statusmeldungen. 
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Status 


Tabelle 4: Statusmeldungen der Floppy 


Byte 0 
Track 
nächster Block 
Byte l 


Sektor 
nächster Block 


Byte2 
Ladeadresse 
Highbyte 
Byte 3 
Ladeadresse 
Lowbyte 


Byte 255 
Wert 252 


Erster Block 


Struktur eines Datenblocks 


Bedeutung 
Fehlerfreie Durchführung 


Blockheader nicht gefunden 
SYNE nicht gefunden 
Datenblock nicht gefunden 
Datenprüfsumme falsch 
Fehler bei Verify 

Diskette schreibgeschützt 
Headerprüfsumme falsch 
Datenblock zu lang 

ID im Blockheader falsch 
Keine Diskette im Laufwerk 
Fehler bei Dekodierung 


Byte O0 
Track 
nächster Block | 


Byte I 


Sektor 
nächster Block 


Byte 2 

Wert 253 
Byte 3 

Wert 254 
Byte 4 

Wert 255 


Byte 255 
Wert 506 


Zweiter Block und 
folgende Blocks 


Byte 0 


zugehörigen Bytes 


Byte 2 

Wert 507 
Byte 3 

Wert 508 
Byte 4 

Wert 509 


Byte 255 


Letzter Block 


Ein Beispiel soll die Anwendung dieses 
Job-Prinzips verdeutlichen. Der Be- 
nutzerpuffer ist Puffer 2. Für ihn sind 
also die Job-Speicherzelle $0002 und 
der Track-/Sektorzeiger $000A/$000B 


zuständig. Um den Inhalt des Blocks 
20,1 in den Benutzerpuffer zu laden, 
benötigen wir damit folgendes Pro- 
gramm: 


EINFACH SPITZE! 


Zwei Superprogramme für Ihren C-64 und C-128 
zu einem noch nie dagewesenen Preis! 


Beide Programme haben folgende Merkmale gemeinsam: 
© 100% Maschinensprache (keine compilierten Programme) extrem schnell@ WINDOWTECHNIK auf dem C-64 
© Alle gängigen Drucker bereits angepaßt ® Supergünstiger Preis ® Echte 80- Zeichen-Darstellung auf dem C-64 
möglich. * 


MakroDat 


MakroDat das universelle Datenprogramm für jede Anwendung. Mit MakroDat können Sie Ihren Kundenbestand, Ihre Briefmarken und 
vieles mehr verwalten. Makro Dat nimmtes Ihnen nicht einmal übel, wenn Ihr Diskettenlaufwerk oder Ihr Drucker nicht eingeschaltet ist, das 
Programm weist Sie auf den Fehler hin. Auch Window-Technik auf dem C-64 wird durch MakroDat realisiert, Überzeugen Sie sich selbst 
anhand der Stichpunkte von den Leistungen. 


MakroDat in Stichworten: 

© Über 6000 Datensätze können als Datei verwaltet werden. @ Bis zu 30 Felder pro Datensatz. @ Alle 30 Felder können als Schlüssel- 
felder (Indexfelder) deklariert werden. @ Unterstützung mehrerer Feldtypen: numerische, alphanumerische, reine Buchstaben-Felder. 
© Auch bei großen Datenmengen blitzschneller Zugriff und volle Datensicherheit. ® Enorm bedienungsireundlich durch Menü- und 
Fenstertechnik. @ Bedienungsfehler des Anwenders werden komplett abgefangen. Auch bei Fehlbedienung der Peripherie kein Absturz 
des Systems. @ Deutsche Tastaturbelegung mit Umlauten. ® Geänderte Tastaturbelegung kann zur Kontrolle angezeigt werden. 
© Deutscher Zeichensatz auf allen gängigen Druckermodellen: VC-1525, VC-1526, MPS-801, MPS-802, Epson, STAR, ITOH u.v.m. 
fertig angepaßt. @ Frei programmierbare Steuerzeichen für alle angepaßten Drucker. @ Universell erstellbare Druckmaske durch inte- 
grierten PRINT-Editor ermöglicht freie Gestaltung des Ausdrucks: Drucken von Adress-Etiketten ist problemlos möglich. @ Alle Funktio- 
nen auch ohne Drucker verwendungsfähig. @ Blitzschneller Zugriff auf alle Datensätze. @ Prioritätsgestufte Sortierung der Datei über alle 
Felder möglich. @ Sortierte Ausdrucke sind nur von der Geschwindigkeit abhängig. @ Vielseitige Sortiermöglichkeiten: abfallend/auf- 
steigend... @ Völlig neue Suchmöglichkeiten durch EWS (Extended Wildcard System) !! > maximaler Suchkomfort. @ Zwei „UND“ 
Blöcke zur erweiterten Suche durch logische Operatoren verknüpfbar: und/oder. ® Alle gesuchten Begriffe werden zusätzlich noch ohne 
Zeitverlust sortiert! © Volle Diskettenunterstützung ® Globale Funktionen ersparen zeitraubende Operationen. ® Datenschnittstelle zu 
MakroText ermöglicht vollautomatische Serienbrief-Erstellung. ® Umfangreiches deutsches Handbuch mit Übungsteil. 
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MakroText 


MakroText, das schnelle und superkomifortable Textverarbeitungsprogramm für den C-64. MacroText erlaubt auch die Erstellung von 
aufwendigen Texten wie z. B.: Berichte, Angebote etc. Auch dieses Programm arbeitet mit Window-Technik. Ein Leckerbissen an diesem 
Programm ist die eingebaute 80-Zeichen-Karte, die eine Textdarstellung im 80-Zeichen-Modus erlaubt. Durch die Geschwindigkeit und 
Textbreite bis zu 240 Zeichen werden auch hochwertige Drucker voll ausgenutzt. Selbstverständlich sind auch bei diesen Programmen die 
meisten Drucker bereits angepaßt. 


MakroText in Stichworten: 


© Enorm bedienerfreundlich durch Menü und Windowtechnik. @ Bedie- 
nungsfehler des Anwenders werden komplett abgefangen: Auch bei Fehl- 
bedienung der Peripherie kein Systemabsturz. @ Deutsche Tastaturbele- 
gung mit Umlauten. @ Geänderte Tastaturbelegung kann zur Kontrolle 
angezeigt werden. @ Deutscher Zeichensatz auf allen gängigen Drucker- 
modellen: VC-1525, VC-1526, MPS-801, MPS-802, Epson, STAR, 
ITOH, Typenrad u.v.m. fertig angepaßt. @ Frei programmierbare Steuer- 
zeichen auf allen angepaßten Druckern. @ Voll bildschirm-orientierter 
Texteditor. © Blocksarz @ Frei wählbare Textbreite von 40 — 240 Zeichen. 
© Rechter und linker Rand frei verschiebbar. @ Beliebig viele Textabschnitte 
getrennt formatierbar. @ Blockoperationen: Suchen, Ersetzen, Kopieren, 
Verschieben, Löschen. @ Einfügen externer Texte von Diskette. ® Über 
30.000 Zeichen Textspeicher. ® Automatisches Formatieren eingelesener 
Texte. © Frei einstellbare Tabulatoren. ® Kopf- und Fußzeilen wahlweise 
mit Seitenzähler. @ 4 belegbare Floskeltasten sparen Tipparbeit. @ Volle 
Diskettenunterstützung. @ Datenschnittstelle zu MakroDat ermöglicht 
komfortable Serienbrief-Erstellung. ®@ Komfortable Cursorsteuerung 
(z. B. wortweises Springen etc.). @ Umfangreiches deutsches Handbuch mit 
Übungsteil. 
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(unverbindliche Preisempfehlung) 


MakroDat und MakroText zusammen 


nur DM 69? z 


ll BEER AR 


* Die 80-Zeichen-Darsteilung trifft nur für MakroText zu 


Raab Bürotechnik 
Friedhofstraße 36 - 8605 Hallstadt - 


= 0951/200055 


Auch Wiederverkäufer 
finden in uns einen leistungsfähigen Partner! 


BESTELL-COUPON 
Am schnellsten bedienen wir Sie telefonisch! 
Bitte einsenden an: 
Raab Bürotechnik 
Friedhofstr. 36 - 8605 Hallstadt - ® 0951/200055 
Bitte senden Sie: 


Ni Mao Di. Se ae om 39.99 
2 ERRANG om 39.99 
ee om 69.99 


| Den Gesamtbetrag zuz. DM 5,- Versand bezahle ich: 
[] per Nachnahme 
[Ü] Verrechnungsscheck liegt bei. 


Meine Adresse: 


LDA #20 
STA$SOA 
LDA #0 
STA$OB 
LDA #$80 
STA$O02 


LDA$02 
BMIWARTEN 


CMP #$01 
BNEFEHLER 
RTS 


Track-Nummer 

als Track für Puffer 2 
Sektor-Nummer 

als Sektor für Puffer 2 
Jobcode für „Block lesen“ 
als Auftrag für Puffer 2 


Status Puffer 2 holen 
und warten bis Bit 7 gesetzt 


Fehler aufgetreten? 
falls ja zur Fehlerbehandlung 
sonst Ende 


Listing 1: Einlesen eines Blocks in den Benutzerpuffer 


Datenaustausch 
zwischen Floppy 
und C64 


Glücklicherweise verfügt das Betriebs- 
system der Floppy, das DOS, über 
einige elementare Befehle. So ist es 
möglich, vom Computer aus einzelne 
Bytes in den Speicher des Laufwerks 
zu schreiben. Diese Bytes können na- 
türlich auch ein Programm bilden, das 
mit einem weiteren Kommando auf- 
rufbar ist. Vielleicht sollten Sie sich 
die entsprechenden Befehle des 1541- 
DOS kurz nocheinmal ins Gedächtnis 
rufen: 

Mit dem Memory-Write-Befehl läßt 
sich eine Anzahl von Bytes ins RAM 
der Floppy schreiben. Seine Syntax 
lautet folgendermaßen: 

M-W CHR$(LO) CHR$(HI) CHR$ 
(Anzahl) CHR$(Data I)... 

Dabei stehen „LO“ und „HI“ für nie- 
derwertigen beziehungsweise höher- 
wertigen Teil der Floppy-Adresse und 
„Anzahl“ für die Zahl der zu übertra- 
genden Bytes. Allerdings ist diese Zahl 
auf maximal 34 begrenzt! 

Fürs Starten ist der Memory-Execute- 
Befehl zuständig: 

M-E CHR$(LO) CHR$(HI). 

Das Programm wird während der In- 
terrupt-Schleife des Floppy-Control- 
lers ausgeführt und muß mit RTS ab- 
geschlossen sein. Bei Verwendung des 
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Benutzerpuffers gibt es verkürzte Be- 
fehlsformen. So ist das Starten an der 
Adresse $0500 des Floppy-RAMs 
schlicht und einfach mit UC möglich. 
Selbstverständlich läßt sich der Flop- 
py-Speicher auch lesen. Dies geschieht 
mit dem Memory-Read-Befehl. Hier 
wird die gewünschte Adresse mit 

M-R CHR$(LO) CHR$(HI) 
übertragen und deren Inhalt anschlie- 
ßend mit der Betriebssystem-Routine 
INPUT ($FFCF) abgeholt. Allerdings 
muß vorher der Eingabekanal mit 
CHKIN ($FFC6) festgelegt worden 
sein. Wir werden später noch dazu 
kommen. 


Daneben gibt es noch einige spezielle 
Befehle. So wird mit dem Block-Ex- 
ecute-Befehl zunächst ein ganz be- 
stimmter Block von der Diskette ge- 
holt, und dieser dann ausgeführt. Lei- 
der erscheint ein solches Programm 
nicht im Inhaltsverzeichnis und muß 
immer auf ein und demselben Block 
stehen. Kopieren auf eine andere Dis- 
kette ist also fast unmöglich. Kaum 
bekannt ist der &-Befehl, da er in kei- 
nem offiziellen Handbuch auftaucht. 


Er ermöglicht das Einladen von Daten 
in den Floppy-Speicher über einen 
Filenamen. Sein Format ist jedoch so 
unübersichtlich, daß die Erzeugung ei- 
nes &-Files ein Programm für sich 
wert ist... 


Genauere Angaben zu den genannten 
Befehlen findet man in dem Buch „Die 
Floppy 1541“ von Karsten Schramm. 


Programm über 
Bo(a)rd? 


Mit Listing 1 liegt bereits der Assem- 
bler-Quelltext eines kurzen Floppy- 
Programms vor. Wir können ihn in 
den Computer eintippen und von ei- 
nem üblichen Assembler übersetzen 
lassen. Er ist aber nur in der Floppy 
lauffähig. Für jeden Testlauf müßte 
man nun eine umständliche Prozedur 
auf sich nehmen: 


Der assemblierte Quelltext, also der 
Objektcode, wird zunächst auf Disket- 
te abgelegt, dann mit einem Monitor 
an eine andere Stelle im Computer- 
speicher geladen und in BASIC- 
DATA-Zeilen verwandelt. Mit einem 
BASIC-Ladeprogramm, ähnlich wie 
Listing 2, kann anschließend in einer 
Schleife jeder Wert einzeln zur Floppy 
übertragen werden. 


Ein umständlicher und zudem auch 
noch sehr langsamer Vorgang, der ei- 
nem die Arbeit schnell verleiden kann. 
Mit dem Programm „Floppy-Lader“ 
bekommen Sie ein Hilfsmittel in die 
Hand, das schnell und so direkt wie 
möglich arbeitet. Genau wie beim 
Computer LOAD “Name“,8,1 über- 
trägt die kurze Routine ein Programm 
mit beliebigem Namen von der Disket- 
te in den Speicher. Dabei wird die ab- 
gelegte Anfangsadresse berücksich- 
tigt. Will man jetzt ein Programm te- 
sten, braucht man es nur noch — wie 
gewöhnlich — für den gewünschten 
Bereich auf Diskette assemblieren zu 
lassen. Mit der Hilfsroutine wird der 
generierte Objektcode nach Angabe 
des Filenamens direkt an die richtige 
Stelle im Floppy-Speicher geladen. 
Der Start erfolgt dann mit einem Me- 
mory-Execute-Befehl. Auch die Länge 
des Datensatzes wird ganz genau wie 
beim Laden in den Computer abge- 
legt. Bild 1 zeigt das Format eines sol- 
chen Files. In jedem Block stellen die 
ersten beiden Bytes einen Zeiger auf 
den nächsten zugehörigen Block dar. 
Der letzte Block wird durch eine 0 als 
Nummer des Folgetracks gekennzeich- 
net. Die zweite Speicherstelle enthält 
dann die Anzahl der noch zum Eintrag 


gehörigen Bytes. Im ersten Block bil- 
den zusätzlich die Bytes 2 und 3 die 
Anfangsadresse im Speicher. Erst Byte 
4 enthält den ersten zu übertragenden 
Datenwert. Mit diesem Konzept wird 
auch Overlay-Technik möglich. Wenn 
in einem bestehenden Programm bei- 
spielsweise zehn Bytes geändert wer- 
den sollen, können genau diese zehn 
Bytes an die entsprechende Stelle gela- 
den werden, ähnlich wie dies auch im 
Computer möglich ist. Man bleibt 
nicht an die gesamte Blocklänge von 
256 Bytes gebunden. 


Transporthilfe 
haarklein 


Listing 2 zeigt den BASIC-Lader, der 
nach dem Abtippen mit RUN gestartet 
wird. Er enthält in den DATA-Zeilen 
das in der Floppy laufende Maschi- 
nenprogramm, das zunächst mittels ei- 
ner FOR-NEXT-Schleife über den se- 
riellen Bus zum Laufwerk geschickt 
wird. Per INPUT-Anweisung erhält 
der Anwender Gelegenheit, den Na- 
men des nachzuladenden Files anzuge- 
ben. Abkürzungen mit „*“ und mit 
„»?“, den bekannten „Wild Cards“, 
sind wie gewohnt möglich. Nach RE- 
TURN wird der angegebene Filename 
mit Shift-Space (Dezimalwert 160) zu 
einer Länge von 16 Zeichen aufgefüllt 
und zur Floppy geschickt. Anschlie- 
Bend erfolgt der Start der Hilfsroutine 
und der Computer meldet sich sofort 
mit READY und wartet auf neue Be- 
fehle. Alles weitere erledigt die Disket- 
tenstation von selbst. Sie arbeitet nun 
die übermittelte Maschinenroutine ab: 
die gewünschten Daten werden in den 
Speicher der Floppy übertragen. Sollte 
der angegebene Filename auf der Dis- 
kette nicht vorhanden sein, blinkt die 
rote LED und die Fehlermeldung 
„FILE NOT FOUND“ wird bereitge- 
stellt. Gelöschte Files werden dabei 
nicht berücksichtigt. 


Listing 3 zeigt den ProfiAss-Quelltext 
der Hilfsroutine. Er braucht selbstver- 
ständlich nicht abgetippt zu werden, 
sondern dient lediglich der Dokumen- 
tation. Wichtig ist er auch zur erneu- 
ten Assemblierung für einen anderen 
Teil des Floppy-RAMs. 


Man erkennt, daß die Hilfsroutine 
selbst ein großes Unterprogramm dar- 
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stellt. Es wird eingeschlossen von einer 
übergeordneten Ebene, die lediglich 
die LED-Steuerung und Fehlerbe- 
handlung übernimmt. 

Die erste Hauptaufgabe besteht in der 
Suche nach dem gewünschten Direc- 
tory-Eintrag, der ja auch Spur und 
Sektor des ersten File-Blocks enthält. 
Bild 2 veranschaulicht den Aufbau der 
Directory-Blöcke. Sie enthalten je- 
weils acht File-Einträge. Jeder Eintrag 
hat wiederum das gleiche Format. Es 
wird auf der rechten Seite von Bild 2 
dargestellt. Wichtig für unsere Routi- 
ne sind lediglich der Filetyp, der File- 
name und natürlich Anfangstrack 
und -sektor. 

Um den richtigen Eintrag zu finden, 
wird von Block 18,1 aus die gesamte 
Directory-Liste folgendermaßen 
durchsucht: Das Unterprogramm 
„LIES“ holt einen Block von der Dis- 
kette in den Hauptarbeitspuffer 0 
($0300 bis $03FF). Das Y-Register 
dient als Zeiger in diesen Puffer und 
wird zunächst auf 2 gesetzt, weist also 
auf die Speicherstelle, die den Filetyp 
des ersten Eintrags angibt. Falls ihr In- 
halt O0 ist, was den Filetyp Deleted 
kennzeichnet, wird gleich mit dem 
nächsten Eintrag fortgefahren. An- 
sonsten setzt dreimaliges INY den Zei- 
ger gleich auf den Anfang des Filena- 
mens. Er wird unter Berücksichtigung 
der Wild Cards Byte für Byte mit dem 
vorgegebenen Namen verglichen, wo- 
bei das X-Register einen Zeiger in den 
Vergleichsnamen bildet. 

Beim ersten falschen Zeichen wird die 
Suche bereits mit dem nächsten Ein- 
trag fortgesetzt. Dies geschieht durch 
Addition von 32 zur in ZEIGER zwi- 
schengespeicherten Basisadresse des 
vorhergehenden Eintrags. Erfolgt ein 
Überlauf, so befindet sich der nächste 
Eintrag im folgenden Block, der in 
diesem Fall zunächst geladen werden 
muß. 

War die Suche erfolgreich, dann wer- 
den Track und Sektor des ersten File- 
blocks isoliert und es erfolgt der 
Sprung zum zweiten Hauptteil des 
Hilfsprogramms, der Laderoutine. 
Nach dem Laden des ersten Blocks — 
ebenfalls wieder in den Hauptarbeits- 
puffer 0 ($0300 bis $03FF) — werden 
zunächst Low- und Highbyte der La- 
deadresse isoliert. Dann folgen Ein- 
stellung der Parameter und Aufruf der 


Kopierroutine TRANS, die alle gülti- 
gen Bytes aus dem Puffer in den ent- 
sprechenden RAM-Teil überträgt. Die 
Speicherstellen $A7 und $A8 in der 
Zeropage bilden dabei zusammen mit 
dem Y-Register einen Zeiger in den 
Zielbereich, das X-Register einen Zei- 
ger in den Puffer. 

Anschließend lädt das Programm so- 
fort den Folgeblock nach. Hieraus 
werden nur Folgetrack und -sektor 
isoliert und dann wieder die gültigen 
Bytes kopiert. 

Das geht so weiter, bis die Tracknum- 
mer O0 das Fileende signalisiert. Aus 
dem letzten Block werden jetzt nur die 
signifikanten Bytes berücksichtigt. 
Selbstverständlich ist auch der Fall 
möglich, daß ein zu übertragendes File 
nur aus einem Block besteht. 

Beim Rücksprung zur obersten Ebene 
des Hilfsprogramms muß die hexade- 
zimale Fehlernummer im X-Register 
stehen. Eine 0 kennzeichnet fehlerfrei- 
en Ablauf. In diesem Fall wird die rote 
LED ausgeschaltet und es erfolgt der 
Rücksprung. Steht aber ein anderer 
Wert im X-Register, dann wird zusätz- 
lich die DOS-Routine SE6C7 aufgeru- 
fen, um den entsprechenden Fehler- 
text in der Floppy bereitzustellen. Das 
Unterprogramm $C12C veranlaßt das 
Blinken der LED. 


Serielle Busverbindung 


Die 1541-ist am seriellen Bus des C64 
angeschlossen. Leider wurde bei der 
Konzeption dieses wichtigen Daten- 
kanals tüchtig gespart. Übrig blieb 
eine abgemagerte Version des paralle- 
len IEC- oder auch IEEE-488-Busses, 
mit dem die Geräte der CBM-Serie 
von Commodore ausgerüstet sind. Die 
Kommunikation mit den angeschlos- 
senen Geräten ähnelt zwar dem paral- 
lelen Vorbild und sogar die Bedienung 
von Maschinensprache aus geschieht 
über Routinen, die von der Funktion 
her identisch mit denen der großen 
CBMs sind, doch können diese Tatsa- 
chen kaum darüber hinwegtrösten, 
daß beim seriellen Konzept nur eine 
einzige Datenleitung zur Verfügung 
steht, was alle Übertragungen zwangs- 
weise verlangsamt. 

Im folgendem sollen die Vorgänge auf 
dem seriellen Bus kurz vorgestellt wer- 


den. Sie sind relativ kompliziert. Las- $ 
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sen Sie sich jedoch dadurch nicht ver- 
schrecken. Zur Bedienung können Sie 
universelle Betriebssystem-Routinen 
einsetzen, die im Anschluß erläutert 
werden. Trotzdem sollen Sie ein Ge- 
fühl dafür bekommen, was mit jedem 
einzelnen Byte vor sich geht, bis es 
schließlich auf der anderen Seite ange- 
kommen ist. Vielleicht lassen Sie sich 
dadurch inspirieren, einfachere und 
schnellere Routinen zu schreiben. 


Fangen wir mit der Hardware an. Ta- 
belle 5 zeigt, wie die einzelnen Leitun- 
gen sowohl im C64 als auch in der 
Floppy gesteuert und abgefragt wer- 
den können. Dabei ist zu beachten, 
daß getrennte Anschlüsse für Empfan- 
gen und Senden existieren. In die Sen- 
deleitungen sind bei beiden Geräten 
Inverter mit Open-Collector-Ausgän- 
gen vom Typ 7406 geschaltet. In der 
Floppy enthalten auch die Empfangs- 
leitungen invertierende Schmitt-Trig- 
ger vom Typ 74LS14. Dagegen sind 
die bezeichneten Eingänge des Com- 
puters direkt an die Busleitungen ge- 
koppelt. 


$DD00 


56576 


Tabelle 5: Beschaltung des seriellen Busses 


Es gibt drei Operationsarten auf dem 
seriellen Bus: CONTROL (steuern), 
TALK (senden) und LISTEN (emp- 
fangen). Der CONTROLLER koordi- 
niert die Aktionen auf dem Bus, ein 
TALKER beeinflußt die Datenleitung 
und ein LISTENER empfängt Infor- 
mationen. 

Der C64 arbeitet sowohl als TAL- 
KER, wenn er zum Beispiel Daten zum 
Drucker überträgt, wie auch als 
LISTENER, wenn er beispielsweise 
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ein Programm von Diskette lädt. An- 
dere Geräte können entweder 
LISTENER (zum Beispiel Drucker), 
TALKER (zum Beispiel Meßgerät) 
oder beides sein (zum Beispiel Floppy). 
Auf dem Bus kann immer nur ein 
TALKER arbeiten, jedoch können 
durchaus mehrere LISTENER aktiv 
sein. 

Damit Daten zu einem bestimmten 
Empfänger übertragen werden kön- 
nen, erhält jedes Gerät eine Nummer, 
also eine Adresse. Beim C64 hat Com- 
modore für den seriellen Bus die Gerä- 
tenummern 4 bis 31 reserviert. 


Der Ablauf einer 
Busübertragung 


Über den seriellen Bus kann der C64 
jeweils ein bestimmtes der angeschlos- 
senen Geräte auffordern zu empfan- 
gen oder zu senden. Das tut er, indem 
er ATN (Attention = Achtung) auf 
LOW zieht. Alle angeschlossenen Ge- 
räte unterbrechen daraufhin ihre au- 
genblickliche Tätigkeit und gehen in 
den empfangsbereiten Zustand. Als 
nächstes legt der CONTROLLER nun 
Bit für Bit die Geräteadresse auf den 
Bus — im Falle der Diskettenstation 
also beispielsweise die 8 — während 


VC1541 
Adresse Bit 


ATN LOW bleibt. Alle nicht adres- 
sierten Geräte ziehen sich danach vom 
Busbetrieb zurück und setzen ihre un- 
terbrochene Arbeit fort. Das ange- 
sprochene Gerät aber muß innerhalb 
einer Millisekunde reagieren, indem es 
die Datenleitung nach LOW zieht. An- 
dernfalls nimmt der Computer an, das 
adressierte Gerät sei nicht am Bus und 
gibt eine entsprechende Fehlermel- 
dung aus. ATN wird zurückgesetzt 
und dem Gerät mit TALK beziehungs- 


weise LISTEN mitgeteilt, ob es Daten 
senden oder empfangen soll. 

Ist die Übertragung beendet, so wird 
das Gerät wieder deadressiert. Dazu 
sendet der Computer entweder UN- 
TALK, wenn das Gerät vorher Sender 
war, oder UNLISTEN, sofern es sich 
im Empfangsmodus befand. 

Sollen zum Beispiel Daten von der 
Floppy geholt werden, sind nach Ge- 
räteadresse und LISTEN die Filena- 
men und alle wichtigen Fileparameter 
anzugeben. Nach UNLISTEN kann 
der Computer in beliebigen Zeitab- 
ständen Daten von der Floppy emp- 
fangen. Er legt dazu — wie oben — 
die Leitung ATN auf LOW, gibt da- 
nach die Gerätenummer an und 
schickt ein TALK über den Bus. Dar- 
aufhin stellt die Floppy solange Daten 
bereit, bis vom Computer ein UN- 
TALK-Signal kommt. Auch die Flop- 
py kann ihrerseits die Übertragung be- 
enden (zum Beispiel nachdem das 
letzte Programmbyte übermittelt wur- 
de), indem sie ein EOI (End Of Infor- 
mation = Informationsende) aussen- 
det. Der C64 schließt daraufhin mit ei- 
nem UNTALK die Übertragung ab. 
Da vor jeder Übertragung die Geräte- 
nummer angegeben werden muß, ist es 
dem CONTROLLER möglich, gleich- 
zeitig mehrere Files auf dem Bus of- 
fenzuhalten, um völlig gemischt auf 
die einzelnen Geräte zugreifen zu kön- 
nen. 


Reden und 
Händeschütteln 


Damit die Datenübertragung richtig 
funktioniert, muß sichergestellt wer- 
den, daß ein Folgebyte erst dann über- 
mittelt wird, wenn der Empfänger das 
vorhergehende bereits verarbeitet hat. 
Dazu gibt es sogenannte Handshake- 
Signale. Der TALKER teilt durch 
Freigeben der CLK-Leitung mit, daß 
er Daten senden will. Sobald der 
LISTENER bereit ist, gibt er seiner- 
seits die DATA-Leitung frei, und der 
TALKER beginnt daraufhin mit der 
Übertragung eines Bytes. Dabei wech- 
selt der Zustand der Datenleitung 
während der negativen CLK-Phase 
und wird immer beim LOW-HIGH- 
Übergang des Taktes übernommen. 


Der LISTENER zieht nach dem voll- $ 
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ständigen Empfang eines Bytes die 
DATA-Leitung solange nach LOW, 
bis er wieder empfangsbereit ist und 
das nächste Byte folgen kann. 
Obwohl sich die Beschreibung dieses 
Vorgangs kompliziert anhört, kann 
nur so eine sichere Übertragung mit 
der geforderten Universalität und der 
unter den gegebenen Umständen ma- 
ximal erreichbaren Geschwindigkeit 
vonstatten gehen. 


Datenübertragung in 
Maschinensprache 


Dank der im Betriebssystem des C64 
vorhandenen universellen Bus-Routi- 
nen vereinfacht sich die Datenübertra- 
gung zur Floppy ungemein. Die nach- 
folgend aufgeführten Funktionen las- 
sen sich ähnlich wie die entsprechen- 
den BASIC-Befehle anwenden, wenn 
man ihre Parameter und Einsprungbe- 
dingungen kennt. 

OPEN ($FFCO) 
öffnet einen Kanal. Vorher müssen 
mit der Routine SETFLS die logische 
Filenummer, die Gerätenummer und 
die Sekundäradresse, sowie mit SET- 
NAM der Filename festgelegt sein. 

SETFLS ($FFBA) 
legt die Fileparameter fest. Vor dem 
Aufruf müssen die Register folgende 
Informationen enthalten: 

Akku — logische Filenummer 

X — Gerätenummer 

Y — Sekundäradresse ($FF falls 
keine Sekundäradresse) 

SETNAM ($FFBD) 
legt einen Filenamen fest. Die Register 
haben folgende Bedeutung: 

Akku — Länge des Namens (0 falls 

kein Name) 

X — Lowbyte der Anfangsadres- 
se des Namens 

Y — Highbyte der Anfangsadres- 
se des Namens 

PRINT ($FFD2) 
gibt den Wert im Akku auf das mit 
CHKOUT festgelegte Gerät aus. Ohne 
Aufruf von CHKOUT oder nach ei- 
nem Fehler geht die Ausgabe auf den 
Bildschirm. 

CHKOUT ($FFC9) 
leitet die Ausgabe der Routine PRINT 
auf den Kanal mit der im X-Register 
festgelegten logischen Filenummer 
um. Der Kanal muß vorher mit OPEN 
geöffnet worden sein. Das entspricht 
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MW-BEFEHL 


FUELLEN 


COPYOK 


#1 : logische Filenummer 

#8 y Gerätenummer der Floppy 
#15 N Sekundäradresse 

SETFLS r als Parameter festlegen 
#0 

SETNAM - kein Name 

OPEN : OPEN 1,8,15 


#0 

ADR - Kopier Ziel-Basisadresse 
#1 : Filenummer Befehlskanal 
CHKOUT > Ausgaben zur Floppy leiten 


“MW... 
Zieladresse Lowbyte 


Zieladresse Highbyte 


Anzahl der folgenden Bytes 


Zähler für Befehlslänge 
START,Y s Byte der Floppy-Routine holen 
PRINT = und in den Befehlspuffer 
Offset erhöhen 
#ENDE- 
START : War’s das? 
COPYOK > falls ja, Kopiervorgang beenden 
3 sonst Befehlslänge 
#34 5 auf Maximum überprüfen 
FUELLEN ; und falls möglich auffüllen 
CLRCH s andernfalls Befehl abschicken 


ADR ß alte Zieladresse holen 
: Addition vorbereiten 
#34 5 aktualisieren 


FNAM : zurückschreiben 
MWBEFEHL ; und neuen M-W-Befehl generieren 
CLRCH 2 Befehl ausführen 

#1 2 logische Filenummer 

CHKOUT ; Ausgabe auf Kommandokanal 
#“U* 

PRINT 

#“C“ 

PRINT ;“UC“ (Floppy-Programm starten) 
CLRCH N ausführen und normale Ausgabe 
#1 : logische Filenummer 

CLOSE - Kommandokanal schließen 


Listing 4: Kopier-Routine für Floppy-Programme 


der Wirkung des BASIC-Befehls 
CMD. 

INPUT ($FFCF) 
holt ein Zeichen von dem mit CHKIN 
festgelegten Gerät und übergibt es im 
Akku. Ohne Aufruf von CHKIN er- 
folgt die Eingabe von der Tastatur. 

CHKIN ($FFC6) 
leitet die Eingabe der Routine INPUT 
auf den Kanal mit der im X-Register 
festgelegten logischen Filenummer 
um. 

CLRCH ($FFCC) 

hebt die Wirkung von CHKOUT und 
CHKIN wieder auf. Ausgaben erfol- 
gen danach auf den Bildschirm, Ein- 
gaben von der Tastatur. 

CLOSE ($FFC3) 
sehließt die Datei, deren logische File- 
nummer im Akku steht. Der Kanal 
muß vorher mit OPEN geöffnet wor- 
den sein. 
Bei der Übermittlung von Befehlen an 
die Floppy müssen einige Besonderhei- 
ten berücksichtigt werden: 
Wie auch unter BASIC dient zur 
Übermittlung der Kommandokanal 
mit der Sekundäradresse 15. Die Be- 
fehle werden über ihn Zeichen für 
Zeichen mit der Routine PRINT aus- 
gegeben. Als Abschluß muß mit 
CLRCH die Ausgabe wieder auf den 
Bildschirm geleitet werden. Erst dann 
erkennt die Floppy, daß die Sequenz 
abgeschlossen ist und führt den erhal- 
tenen Auftrag aus. 
Der Einsatz der Routinen soll nun an 
einem sinnvollen Beispiel erläutert 
werden. 


Ein Kopierprogramm 


Wie ein Maschinenprogramm via 
BASIC zur Floppy transportiert und 
gestartet werden kann, wissen Sie aus 
Listing 2. Natürlich ist es bei der Ma- 
schinenprogrammierung des C64 sinn- 
voll, Aufgaben an die Floppy zu dele- 
gieren. Hier soll eine universelle Ma- 
schinenroutine für den C64 vorgestellt 
werden, die entsprechende Program- 
me in den Benutzerpuffer (ab $0500) 
der Floppy schreibt und dort startet. 

Das zu kopierende Programm darf 
nicht länger als 255 Byte sein, muß 
also in einen einzigen Puffer passen. 
Außerdem muß es mit dem Label 
START beginnen und mit ENDE auf- 
hören. Falls es komplett relokativ ge- 


BEUTE ER 


CHKOUT 
#0 
MR,X 
PRINT 


MRBEFEHL 


#MW-MR 


MRBEFEHL ; 


ZEICHEN 


“M-R* 


logische Filenummer 
Gerätenummer der Floppy 
Sekundäradresse 

als Parameter festlegen 


kein Name 
OPEN 1,8,15 


Filenummer Befehlskanal 
Ausgaben zur Floppy 
Zähler initialisieren 

Text “M-R 00 05 00“ 
ausgeben 


schon fertig? 
weiter, falls nicht 
Ausgabe wieder normal 


Filenummer Befehlskanal 
Eingaben von der Floppy 
ein Zeichen von dort holen 
und anzeigen 

Statusvariable des C64 lesen 
und auf EOl testen 

weiter lesen, falls kein EOI 
logische Filenummer 
Kommandokanal schließen 
sonst Ende 


‚BYTE $00, $05, $00, $0D 


MW 


‚END 


Listing 5: Auslesen eines Floppy-Puffers vom C64 aus 


schrieben wurde, läßt es sich sogar in 
einem Rutsch mitassemblieren, da sein 
Code dann unabhängig vom Adreßbe- 
reich lauffähig ist. In diesem Fall darf 
es nur relative Sprünge (Branches) ent- 
halten und keine eigenen Teile als Un- 
terprogramm aufrufen. 


Auf Anforderung 
antwortet Gegenseite 
sofort 


Mindestens genausowichtig wie das 
Übermitteln von Daten an die Floppy 
ist aber das Abholen von Ergebnissen. 
Das folgende Programm ist ein Bei- 
spiel zum Lesen der Daten aus dem 
Benutzerpuffer. Zuerst wird auch hier 
wieder ein Befehlskanal zur Floppy ge- 


öffnet, über den anschließend mittels 
des Memory-Read-Kommandos 
Zeichen für Zeichen gelesen und ange- 
zeigt wird. 

Der Text für den Memory-Read-Be- 
fehl ist im Anschluß an das Programm 
abgelegt. Das Ende der Übertragung 
wird automatisch über das EOI-(End 
Of Information) Bit des C64-Statusre- 
gisters angezeigt. 

Greift der C64 über den seriellen Bus 
auf die Floppy zu, während dort gera- 
de ein Benutzerprogramm abläuft, 
dann wird der C64 zwangsweise ange- 
halten, bis dieses Programm beendet 
ist. So ist gewährleistet, daß zum Bei- 
spiel ein Puffer nicht ausgelesen wird, 
bevor die gewünschten Daten bereitge- 
stellt wurden. 

(Gerhard Szymanski) O 
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er den 
Einstieg in 
die Compu- 
terwelt mittels 
C64 wagt, lernt meist zuerst 
den Umgang mit BASIC. 
Zweifellos ist BASIC eine 
Sprache, die leicht zu verste- 
hen und schnell gelernt ist. 
Im Laufe der Zeit wachsen 
jedoch die Ansprüche: Dann 
ist BASIC nicht mehr kom- 
fortabel genug, fertige Pro- 
gramme sind beim Ablauf 
zu langsam. Abhilfe schaft 
dann der Einstieg in Assem- 
bler. 
Geschwindigkeitsprobleme 
treten bei Maschinensprache 
kaum noch auf. Früher oder 
später wird jedoch der Spei- 
cherplatz knapp, der Pro- 
grammierer sehnt sich nach 
einem leistungsstärkeren 
Rechnersystem wie Amiga 
oder PC. 
Ist das neue System ange- 
schafft, tauchen auch schon 
Probleme auf: Mit BASIC 
lassen sich die Features des 
großen Computers kaum 
ausreizen. Alte Programme 
müssen in Kleinarbeit für 
den neuen Rechner umge- 
schrieben werden. 
Einfacher geht’s bei Hoch- 
sprachen: In Pascal oder C 
geschriebene Software läuft 
auf jedem Rechner, für den 
ein Compiler der entspre- 
chenden Hochsprache ver- 
fügbar ist. 
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MIT & VOM 
664 ZUM GRAY 


C-Programme laufen mit geringfügigen 

Modifikationen auf beliebigen Gomputer-Systemen. Bei System- 

entwicklern, die maschinennah programmieren, ist 
6 besonders beliebt. 
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C-Pioneer auf dem C64 ist Data Becker’s Profi-C 
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$o sieht ein C-Programm auf dem C64 aus. 


Für den C64/C128 sind zwei 
C-Compiler-Systeme erhält- 
lich. 

Profi-C Version 2.0 

Mit Profi-C von Data Bek- 
ker steht C64-/C128-Besit- 
zern die zur Zeit portabelste 
Hochsprache mit maschi- 
nennaher Programmierung 


zur Verfügung. 

Das System besteht aus ei- 
nem DIN-AS-Ringbuch mit 
350 Seiten und einer einsei- 
tig bespielten Diskette. Das 
Handbuch teilt sich in einen 
Systembeschreibungs- und 
einen Übungsteil. Dieser 
stellt anhand kurzer Beispie- 


le eine kleine Einführung in 
die Sprache C dar und ist 
daher in erster Linie als Auf- 
frischungskurs für Umstei- 
ger gedacht. C-Neulingen 
sei ein zusätzliches C-Lehr- 
buch empfohlen. 

Der Systemteil ist als Nach- 
schlagewerk gedacht. Hier 
findet man die ausführlich 
beschriebenen Bibliotheks- 
funktionen, sowie die Bedie- 
nungsanleitungen für C- 
Commando-Processor (CCP), 
C-Compiler, C-Editor, 
C-Linker und 5 weitere 
Hilfsprogramme. 

Nach dem Booten des Sy- 
stems meldet sich der CCP, 
ein CP/M-ähnliches Be- 
triebssystem, welches bis zu 
8 Floppies unterstützt. Er ist 
das Bindeglied zwischen den 
einzelnen Systemteilen. Von 
hier aus können 5 Hilfspro- 
gramme aufgerufen werden: 
COPY dient als Kopierpro- 
gramm 

TYPE listet Quellfiles 
DEVICE ändert die Geräte- 
nummer der Floppy 

Cl dient zur Argument- 
übergabe bei Einsatz mehre- 
rer Floppies 

Fistein kleiner Schnellader mit 
Beschleunigungs-Faktor 3. 
Vor dem eigentlichen Arbei- 
ten mit dem Programmpa- 
ket muß eine System-Ar- 
beits-Diskette erstellt wer- 
den. Dazu kopiert man alle 
Bibliotheken und Headerfi- 


les (Deklarationstabellen) 
auf eine Diskette. Mit dem 
COPY-Hilfsprogramm läßt 
sich dies leicht bewerkstelli- 
gen. 

Nach dieser Vorbereitung 
kann mit dem C-System ge- 
arbeitet werden. 

Wichtig für komfortables 
Programmieren in € ist ein 
vernünftiger Eingabe-Edi- 
tor. Bei Profi-C Version 2 
handelt es sich hierbei um 
ein leistungsstarkes Textver- 
arbeitungsprogramm mit 


l ascii.c 


links und rechts ist ebenfalls 
integriert. Störend wirkt 
sich lediglich die ’LAST 
LINE’-Funktion, ähnlich 
der ’END OF PAGE?’ bei 
Viza-write, aus. Sie kommt 
überraschend und wird nur 


durch eine unscheinbare 
Meldung in der Kopfzeile 
des Editors angekündigt. 


Der Freiraum muß hier mit 
der F7-Taste stets neu ange- 
fordert werden. Zum Glück 
sind alle Tasten mit einer 
REPEAT-Funktion ausge- 


Testprogramm fuer Profi-C #/ 


und Small-C 


*/ 


Wandelt ASCII-Code in */ 
DEZ. ,HEX. ,OKTAL,DUAL um */ 


#include"stdio.h" /# Preprozessoranweisung zum dazuladen der Datei 


main() 
E 


int asc,bit; 


printf("£EnASCII-CODE 32-127£n"); 


printf("DEZIMA , 


HEXA „, 


OKTAL . DUAL , ASCII"); 


speziellen Errorfile abgelegt. 
Leider fehlt hier die direkte 
Ausgabe der Fehler auf ei- 
nem Drucker. So bleibt nur 
die Möglichkeit, das Error- 
file in den Editor zu laden 
und auszudrucken. 

Nach erfolgreichem Compi- 
lieren wird der C-Linker in- 
teressant. 

Bis zu 10 getrennt compilier- 
te Quellfiles lassen sich mit 
dem 2-Pass-Linker von Pro- 
fi-C zu einem lauffähigen 
Programm zusammenbin- 


"stdio.h 


/%* Hauptfunktion (hier beginnt das Programm #/ 
/* BEGIN in Pascal #/ 
/* Vordefinierung als Ganzzahlen #/ 


/* £n gleich Carriage Return #/ 


for(asc=32;asc(=127;+tasc) /# ++tasc gleich asczasctl #/ 


printf("%d%5x%50" ,‚asc.asc,asc); 


for (bit=7;bit>=0;--bit) 


printf("%1d", (asc’>>bit)&l); 


/* Bitverschiebung nach RECHTS und Bit 


/* UND-Verknuepfung mit 1 #/ 


printf("%15c£n£n" ,asc); 


F 
getchar(); 
Fr 


Beispielprogramm in C 


zwei Textbereichen von ins- 
gesamt 43 KByte. Es stehen 
zwei gut lesbare Zeichensät- 
ze — Commodore-Zeichen- 
satz und einer für C-spezifi- 
sche Zeichen wie zum Bei- 
spiel geschweifte Klammern 
— zur Verfügung. Außer- 
dem sind alle Funktionen ei- 


nes guten Textverarbei- 
tungs-Programms vorhan- 
den: Transfer, Replace, 


Erase, Tab, Hunt, Drucker- 
anpassung und Diskopera- 
tionen. Eine 80-Zeichen-Dar- 
stellung durch Scrollen nach 


/s END in Pascal #/ 
/* Wartet auf Taste #/ 


stattet. Beim Compiler han- 
delt es sich um einen 25 
KByte großen 1 Pass-C- 
Compiler mit vorgeschalte- 


tem Preprozessor — eine 
Besonderheit der Sprache C. 
Der Preprozessor bindet 


zum Beispiel die Deklara- 
tionstabelle ’stdio.h’ in das 
Quellfile, bevor der Compi- 
ler übersetzt. 

Es können insgesamt 50 
KByte Quellfiles übersetzt 
werden. Auftretende Fehler 
werden auf dem Bildschirm 
ausgegeben und in einem 
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den. Nach Eingabe des Pro- 
grammnamens wird vom 
Linker das große Linkfile 
der Standardbibliothek vor- 
geschlagen, das mit ’RE- 
TURN’ übernommen wer- 
den kann. Dann müssen nur 
noch die weiteren Linkfiles 
angegeben werden. Im wei- 
teren besteht noch die Mög- 
lichkeit, die Speicherober- 
grenze festzulegen und ob es 
sich beim Compilat um ein 
im C-System oder im nor- 
malen BASIC lauffähiges 
Programm handeln soll. 


Festlegen der Speicherober- 
grenze ist wichtig bei Ver- 
wendung von eigenen Ma- 
schinen-Programmen und 
zur Einrichtung von Daten- 
pools bei hintereinanderlau- 
fenden Programmen. 

Auch hier gibt es Schwierig- 
keiten mit der Fehlerbe- 
handlung — Errors werden 
nur auf dem Bildschirm aus- 
gegeben. Es existiert kein 
Errorfile, das ausgedruckt 
werden kann. 


Bibliotheken und Funktionen 
Eine besondere Eigenschaft 
der Hochsprache C sind 
System-Bibliotheken. Sie ge- 
hören zu den Grundelemen- 
ten von C und machen diese 
Sprache portabel für ver- 
schiedene Rechnersysteme. 
Zur Standardbibliothek 
’stdio.h’ gehören zwei Link- 
files. In LIBC.L sind alle 
Standardfunktionen enthal- 
ten. 


Portabel dank 
Bibliothek 


LIBCS.L verfügt bis auf 
PRINTF und SCANF auch 
über alle Funktionen und ist 
um die Hälfte kürzer als 
stdio.h. Neben der Stan- 
dardbibliothek stehen noch 
eine sehr gute Grafik- und 
eine Mathe-Bibliothek zur 
Verfügung: TYPE.h ist eine 
in den meisten C-SYSTE- 
MEN vertretene Deklara- 
tionsdatei. Sie besitzt kein 
Linkfile (siehe Tabelle 1). 
Alle Funktionen werden im 
Handbuch ausführlich be- 
schrieben. Die Auflösung 
der Grafik beträgt bei einem 
40-Zeichenmonitor 
160x200 Punkte. Von den 
16 Farben des C64 können 
vier gleichzeitig dargestellt 
werden. 


Sprachumfang von Profi-C 
Version 2 

PROFI-C hält sich an den 
C-STANDARD nach 


KERNIGHAN/RITCHIE > 
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(siehe Tabelle 2). Leider un- 
terstützt das System nicht 
den relativen Datenzugriff. 
Die Handhabung von seq. 
Dateien hingegen ist imple- 
mentiert. Bei den Schlüssel- 
wörtern haben ENTRY, 
FORTRAN und ASM keine 
Bedeutung. Die Speicher- 
klasse REGISTER wird aus 
prozessorspezifischen Grün- 
den als AUTO verarbeitet. 
Der 6510-Prozessor hat nur 
zwei interne Register und 
kann dadurch keine Varia- 
blen im Register behalten 
wie zum Beispiel die 8085- 
CPU mit ihren 8 Registern. 
Im weiterem läßt PROFI-C 
die Konstruktion WHILE( 
als Endlosschleife zu. Dies 
unterscheidet sich bei Com- 
pilern oft. 

Benchmarks von Profi-C 
Zwar gibt es keine direkten 
Vergleiche mit anderen 
Compilern, aber hier noch 
ein kurzes Programm, das 
die ASCII-Codes 32 — 127 in 
Dezimal, Hexa, Oktal, Dual 
und natürlich in ASCII aus- 
gibt. 

Der ’include’-Befehl ist für 
den erwähnten Preprozes- 
sor, hierdurch wird die De- 
klarationstabelle ’stdio.h’ 
ins Quellfile gebunden. 
Main() definiert den Anfang 
der Hauptfunktion. 

Die geschweifte Klammer 
entspricht dem BEGIN/ 
END bei Pascal. 

Int steht für INTEGER, 
also Ganzzahl-Variable. 

Bei YodYoxYoo%oc handelt es 
sich um das Ausgabeformat: 
dezimal, hexa, oktal und als 
ASCII-Zeichen. 

Die Schreibweise + + asc ist 
eine der Besonderheiten von 
C, sie bewirkt dasselbe wie 
asc=asc+tl. 

In Zeile 14 wird eine bitwei- 
se Verschiebung nach 
RECHTS vorgenommen 
und bitweise mit 1 UND- 
verknüpft. 

Ansonsten dürfte auch ein 
BASIC-Kenner das Pro- 
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gramm verstehen. 

In der Tabelle 3 sind die 
Compile-, Link-und Laufzeit 
sowie die Programmgröße 


BIBLIOTHEKEN 
C-STANDARDBIBLIO- 
THEK-FUNKTIONEN: 
erron(),erroff(),nmioff(), 
gerror(),error(),exit(), 
open(),close(),putc(), 
fputc(),getc(),fgetc(),getchar(), 
putchar(),gets(),fgets(), 
puts(),fputs(),fgetf(), 
fputf(),fopen(),fclose(), 
stren(),stremp(),strnemp(), 
streat(),strncat(),strcpy(), 
strncpy(),strchr(),strrcehr(), 
eursor(),exec(),cmove(), 
move(),alloc(),free(),settime(), 
gettime(),keys(),call(), 
printf(),fprintf(),sprintf(), 
scanf(),fscanf(),sscanf() 
C-GRAFIK: 
graphic(),backgr(),clrmap(), 
colors(),setcol(),graphon(), 
graphoff(),isgraph() so- 
wie line(),plot(),sharp() 
und fill(), um nur einige 
zu nennen. 
C-MATHEMATIK: 
sin(),cos(),tan(),atan(), 
abs(),sgn(),rnd(),spr(), 
sprt(),log0,expO. 
C-TYPE: 
isupper(),islower(),isalpha(), 
isdigit(),issace(),tolower(), 
toupper(). 


Tabelle 1 


bei Verwendung des großen 
Linkfiles aufgeführt (siehe 
Listing). 

Profi-C Version 2 ist für 
C64 und C128 im C128-Mo- 
dus erhältlich. 

Die C128-Version gleicht im 
Wesentlichen der C64-Ver- 
sion. Als Erweiterung ist 
eine RAM-Floppy _inte- 
griert. Außerdem wird die 
Programmierung von Fast- 
Modus und VDC-Chip un- 
terstützt. Die Grafik-Biblio- 
thek ist dem C128 angepaßt. 
Bei einem Preis von 99, — 
DM bekommt man mit Pro- 


fi-C Version 2 ein ausgereif- 
tes C-Entwicklungssystem. 
Schönheitsfehler halten sich 
in Grenzen. Das System ist 
jedem C64/C128-Besitzer zu 
empfehlen, der sich mit C 
befassen will. 

Name: Profi-C 64 

Art: Entwicklungssystem 
Vertrieb: Data Becker, Düs- 


seldorf 

Preis: 99,— DM 
Lieferumfang: Ringbuch 
und Disk 


SMALL-C TEST 

Mit J.E. Hendrix’ Small-C 
steht nun auch unter CP/M 
dem C128-Besitzer ein C- 
Entwicklungssystem zur 
Verfügung. Im Gegensatz 
zum Namen ist der Liefer- 
umfang mit 3 Disketten im 
1571-Format und einem 200 
Seiten starken Handbuch als 
DIN-AS-Ringbuch sehr 
groß. Das System besteht 
aus einem kleinen Editor, C- 
Compiler, Makroassembler, 


SCHLÜSSELWORTE: 
auto,break,case,char,con- 
tinue,deflaut,do,double, 
else,enum,extern,float,for, 


goto,if,int,long,register, 
return,short,sizeof,static, 
struct,switch,typedef, 
union,unsigned,void,while. 


Tabelle 2 


Linker und Utilities. Alle 
Programme sind in C ge- 
schrieben, was die Lei- 
stungsfähigkeit von C wie- 
der mal unter Beweis stellt. 
Auch sind alle Quelltexte 
vorhanden — der Erstellung 
eines eigenen C-Entwick- 
lungssystems oder Erweite- 
rung steht nichts im Wege. 

Kernstück des Systems ist 
der C-Compiler ’CC.COM’. 
Er übersetzt in eine Ausga- 
bedatei vom Typ ’.MAC’ — 
eine Untermenge der Spra- 
che C. Hierbei wird ein 
8080-Assemblercode er- 


zeugt, der vom Makro-As- 
sembler weiterbearbeitet 
werden kann. 

Beim Compilier-Vorgang 
auftretende Fehler werden 
nicht wie gewohnt mit Zei- 
lennummer und Fehlermel- 
dung ausgegeben: Die feh- 
lerhafte Zeile wird gelistet 
und der Cursor zeigt auf die 
Stelle im Programm, bei 
welcher der Fehler auftrat. 
Zum Lieferumfang von 
Small-C gehört auch das Ar- 
chiv-Verwaltungs-Pro- 
gramm ’AR.COM’. Es faßt 
mehrere Dateien zu einer 
Datei zusammen. Dateien 
können so beliebig vergrö- 
Bert, verkleinert oder in ihre 
Bestandteile zerlegt werden. 
Der Vorteil liegt hier in der 
Erstellung anwendungsspe- 
zifischer Dateien, die für 
den Anwender übersichtli-. 
cher sind. 

MAC -— der Makroassembler 
Ist der Quellcode compiliert, 


ZEITEN und GRÖSSEN : 
Quellfile ca.: 500 Byte 
Linkfile ca.:1000 Byte 
Runfile ca.:7500 Byte 


Compilieren: 22 sek 
Linken : 79 sek 
Laufzeit : 13 sek 


Tabelle 3 


wandelt der Makro-Assem- 
bler ’”MAC.COM’ ihn in 
eine linkfähige Datei um. 
Der MAC ist ein tabellenge- 
steuerter 2-PASS-Makro- 
Assembler, der relokatierba- 
ren (verschiebbaren) Assem- 
blercode, wahlweise für 
8080 oder Z80-Systeme, er- 
zeugt. Er kann auch unab- 
hängig vom C-System als 
8080- oder Z80-Assembler 
eingesetzt werden. 

Außer dem MAC gehören 
noch ’LIB’, der Bibliotheks- 
verwalter und ’LNK’, der 
Linker, zum System. LIB er- 


stellt, wartet und listet den 
Inhalt von LNK-kompati- 
blen Bibliotheken. LNK, 
das schwächste Glied in der 
Entwicklungskette, bindet 
den Quellcode mit den Bi- 
bliotheksfunktionen zu ei- 
nem lauffähigen Programm 
(COM-Datei). 

Die Schwäche des Linkers 
geht auf das langsame CP/M 
des C128 zurück — selbst 
bei kurzen Programmen 
kann die Linkzeit einige Mi- 
nuten dauern. Die anschlie- 
ßenden Laufzeiten der C- 
Programme machen diesen 
Ärger jedoch wett. 
C-TEXT-TOOLS 

Beim Texteditor von Small-C 
handelt es sich um einen Zei- 
leneditor einfachster Bau- 
weise, ohne jeglichen Kom- 
fort. Der Editor läßt sich 
durch die mitgelieferten 
Text-Tools jedoch sinnvoll 
erweitern. Dem Anspruchs- 
vollen ist der CP/M-Editor 
ED zu empfehlen. 

Weitere Tools sind in Tabel- 
le 1 aufgeführt. 

Die Tools sind nur als Quell- 
dateien vorhanden und müs- 
sen erst noch compiliert wer- 
den, was die erste Benut- 
zung für den C-Einsteiger 
erschwert. Im übrigem ist 
das System sehr offen gehal- 
ten und in erster Linie für 
den C-Könner gedacht, der 
sich keinen PC leisten will. 
Sprachumfang 

von SMALL-C 

Kommen wir zu dem Punkt, 
der dem System den Namen 
gibt, nämlich dem Sprach- 
umfang und den Bibliothe- 
ken. 

Wie der Name schon sagt, 
handelt es sich hier um eine 
Untermenge der Sprache C. 
Grob gesagt sind folgende 
Eigenschaften des C-Stan- 
dards nach Kernighan/ 
Ritchie nicht vorhanden: 
Fließkomma-Datentypen 
wie Float, Double, Mehr- 
dimensionale Arrays, Bit- 
Felder, Zeigerarrays, sizeof, 


casts, Strukturen wie struct 
und union sowie void und 
enum. 

Der übrige Sprachumfang 
ist vom C-Standard auf- 
wärts kompatibel. 

Die C-Bibiothek beinhaltet 
alle UNIX-Funktionen, die 
in fremder Umgebung an- 
wendbar sind. 

Arbeiten mit SMALL-C 
Bevor man mit Small-C ar- 
beiten kann, muß man sich 
erst drei Arbeitsdisketten 
mit dem Kopierprogramm 
’PIP.COM'’ erstellen. 

Auch auf die erste Diskette 
’C-Compiler’ müssen die 
Programme ’PIP.COM’ 
’CC.COM’ und ’STDIO.H’ 
kopiert werden. 

Disk 2, ’SMALL-MAC- 
ASSEMBLER’, sollte eben- 
falls das Kopierprogramm 
’PIP.COM’ enthalten. Im 
weiteren kommt noch der 
’MAC.COM’ auf diese 
Disk. 

Die letzte Disk, ’LINKER’, 
beinhaltet die Bibliotheken, 
den Linker 'LNK.COM’ so- 
wie ’PIP.COM’. 

Das Kopierprogramm ist 
deswegen so wichtig, weil 
die Arbeits-Files von einer 
Disk zur anderen kopiert 
werden müssen. Dieser zeit- 
raubende Arbeitsgang ist bei 
Verwendung einer Floppy 
leider unumgänglich. 
SMALL-C ist im Grunde ein 
ausgereiftes C-Entwick- 
lungssystem, das in erster 
Linie zum Selbststudium für 
Sprach-Umsteiger gedacht 
ist. 

Bei einem Preis von 99, — 
DM wird dem Käufer ein 
umfangreiches Paket zur 
Entwicklung von eigenen C- 
Routinen auf dem C128 un- 
ter CP/M geboten. Umstei- 
ger sollten sich mit zusätzli- 
cher C-Literatur versorgen. 
Name: SMALL-C 

Art : C-Entwicklungssystem 
Vertrieb: Markt & Technik, 
Haar (Gerhard Szymanski) 
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Hunger durch Überfluß? 


Allgemein wird angenom- 
men, daß allein die Über- 
bevölkerung, fehlendes 
Ackerland oder Natur- 
katastrophen schuld am 
Hunger seien. Das stimmt 
so nicht, denn schon 
heute werden weltweit pro 
Person und Tag zwei 
Pfund Getreide produziert, 
rund 3000 Kalorien. 
Eigentlich müßte niemand 
hungern. Trotzdem ster- 
ben jährlich Millionen Men- 
schen an Unterernährung. 
Hunger ist also auch ein 
Problem der gerechteren 
Verteilung. Schritte in die 
richtige Richtung sind 

alle Maßnahmen, die den 
Armen in Entwicklungs- 
ländern helfen, eigene 
Wege zur Selbstversor- 
gung zu finden. Die Bauern 
müssen Zugang zu 
Krediten mit vernünftigen 
Bedingungen haben. 
Landreformen müssen die 
ungerechte Bodenvertei- 


Spendenkonto 500 500 500 


Ihr optimaler Schachzug 


Roßmöller 
Roßmöller Handshake Roßmöller 
LomeurerTunng GmbH CompürerTunng 


lung ändern. Landbesitz- 
sicherung und Rechtshilfe 
für Kleinbauern sind 
dringend erforderlich. Die 
Bauern müssen Lagerung 
und Vermarktung ihrer 
Produkte auf genossen- 
schaftlicher Basis selbst in 
die Hand nehmen können. 
Denn auch in den kom- 
menden Jahren wird nur 
die eigene Landwirtschaft 
den wachsenden Völkern 
die Lebensgrundlage 
liefern. 

Informationen zu »Hunger 
durch Überfluß?« erhalten 
Sie kostenlos von »Brot 
für die Welt«, Postfach 476, 
7000 Stuttgart 1. 


Brot 


bei 
Evang. Darlehnsgenossenschaft Kiel (BLZ 210 60237) 
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WELTNEUHEITEN VOM COMPUTERSPEZIALISTEN 
QUALITÄT NICHT NUR FÜR PROFIS 


Profis brennen mit 

PULSAR - dem Allesbrenner 
steckbares Epromprogrammiergerät, für C 64/128 
mit durchgeschleiftem Userport, zusätzl. Netzteil 
nicht nötig, brennt alle Eproms von 2508-2564, 


rl £ 


TurboProcess 
Atache Geschwindigkeit, 
steckbar im Expansions- 
port ohne Öffnen des Rech- 


ners (kein Garantieverlust) | 


TURBO TRANS 
immer noch der schnellste Floppybeschleuniger 
für die 1541 (PC 128 in allen 3 Modi), direkter Zu- 
griff auf 3 Diskettenseiten ohne Diskettenwech- 


sel. 512 K RAM, Diskettenmonitor etc, DM 299,- | 


Fordern Sie an: Gratiskatalog und deutsche Händlerübersicht, z.B. Völkner Elektronik. Shop 64 b 


Distr. f, Österreich 
Ueberreuter Media 
Alsersir. 2 
A-1091 Wien C 


Distr. 1. Niederlande 
CAT&KORSH 


Havenstraat 7C 


Tel. No. 010-4765870 


Tel. No. 0222-481538 Tel. No, 037-362060 


Distr, {, Schweiz Laden/Adresse 
MFS Roßmöller Handshake GmbH 
Postfach 28 
H-3185 Schmitten 
Tel. No. 0228-6502 12 


„2% CB 


SAMT: 
DA lol 


DER AMIGA BAFF 


aff ist ein Spiel für 
zwei. Nach dem Starten 
erscheint zunächst das 
Titelbild, dann das Spiel- 
feld. Rechts oben ist der elektronische 
Würfel zu sehen, der die Anzahl der zu 
ziehenden Züge anzeigt. 

Darunter befindet sich ein Textfen- 
ster, in dem gemeldet wird, was der 
Spieler als nächstes zu tun hat. Darun- 
ter sind vier Kommandofenster, mit 
denen sich die Befehle „Nein“, 
„Ende“, „Baff“ und „Info“ anklicken 
lassen. 

„Nein“ bedeutet einen Verzicht des 
Spielers auf den nächsten Zug. Dafür 
werden ihm allerdings Strafpunkte ab- 
gezogen, während der Gegner einen 
kleinen Bonus erhält. „Ende“ führt 
zum Programmabbruch und zurück 
zur Workbench. „Baff“ läßt sich nur 
in bestimmten Situationen anwählen 
und wird weiter unten erklärt. „Info“ 
enthält Angaben zum Spiel. 


Intelligenz, Überblick und etwas 
Glück sind bei „Baff“ gefordert, 
wenn man gewinnen will. 


In dem senkrechten Fenster daneben 
wird grafisch der Punktestand der 
Spieler angezeigt. Da es auch Abzüge 
geben kann, beginnen die Spieler mit 
einem kleinen Grundkapital. 

Welcher Spieler welche Farbe nimmt, 
ist „Baff“ vollkommen egal. Haben 
sich die Spieler einmal entschieden, 
zeigt die Farbe des Mauszeigers an, 
wer an der Reihe ist. Je nachdem wel- 
che Zahl der Würfel anzeigt, wählt er 
mit einem Mausklick einen eigenen 
Stein an und setzt ihn mit einem zwei- 
ten Klick wieder ab. Das Zielfeld muß 
senkrecht, waagerecht oder diagonal 
auf einer Ebene mit dem Ausgangsfeld 
liegen. Auf die Felder der Außenbahn 
kann man keine Steine setzen. Wenn 
jedoch ein Stein genau an einem Über- 


gang lauert und sich das gegenüberlie- 
gende Feld rot färbt, kann man mit 
„Baff“ hinüberspringen. Der Stein ist 
dann zwar verloren, aber man hat da- 
für einen dicken Bonus kassiert. Bis 
zum Schluß bleibt bei diesem Spiel 
völlig offen, wer gewinnt. Wer nur 
noch einen Stein besitzt, muß nicht 
verzagen. Mit Geschick und Glück bei 
den Zahlen kann man immer noch ge- 
winnen. 

Das Spiel ist zu Ende, wenn einer der 
Spieler keine Punkte, keine Steine 
mehr oder die Höchstpunktzahl er- 
reicht hat. 

Das Programm ist ohne Zeilennum- 
mern einzugeben, die nur der Orientie- 
rung dienen. Nur wer den Checksum- 
mer von der Amiga-Diskette besitzt, 
gibt die Checksummen mit ein. Sie 
werden nach Überprüfung vom Pro- 
gramm automatisch entfernt. Der 
Checksummer wird als Listing in der 
nächsten Amiga-Welt veröffentlicht. 


. i t 33 PSET (9,a),b 011 
System: Amiga ‚ 34 PSET (a-6,16),b 881 
Art: Spiel BE 35 beb-1 598 

‚ 36 NEXT a 484 

Sprache: BASIC u 37 434 
a 38 DIM stern (200) 001 

39 GET (4,10)-(17,23),stern 458 

zu BAFF 039 40 CLS 764 
FR eure CC ur}! 164 
a Amiga 512KByte 993 x 42 FOR a=0 TO 16 531 
4 Kickstart v1.2 660 43 FOR b=0 TO 606 
OR 80 Zeichen 427 44 x=(INT(36*RND(1))) *17 019 
6-! Amiga Basic vV1.2 494 f 45 PUT (x,y) ‚stern, PSET 914 
Dan 317 46 NEXT b 947 
8 ' von Thomas Moeller 064 L 47 y=y+id 886 
9° Copyright by CW-Publikationen 871 48 NEXT a 862 
10 SCREEN 1,640,230,4,2 457 3 49 862 
11 WINDOW 2,"",(0,0)-(631,216),0,1 436 50 fa=15 112 
12 486 r- 51 112 
13 startp: 966 - 52 FOR a=9 TO 15 591 
14 WINDOW OUTPUT 2 993 53 LINE (2+a,2+a)-(48-a,33-a),£fa,b : fa=fa-ı1 684 
15 RANDOMIZE TIMER 879 54 NEXT a 380 
16 PALETTE 0,0,0,0 502 55 380 
17 PALETTE 1,0,0,0 314 56 DIM fe1ld(100) 919 
18 314 57 GET (11,11)-(39,24), feld 587 
19 FOR a=0 TO 15 856 58 587 
20 PALETTE a,0,0,0 724 59 FOR a=2 TO 8 6549 
21 NEXT a 588 60 LINE (9+a,9+a)-(41-a,26-a),a,b 370 
2 588 61 NEXT a 658 
23 vor=vor+1:IF vor=1 THEN GOSUB VORSPANN 079 is 62 658 
24 079 =, 63 DIM sfeld(100) 780 
25 b=15 48 m 64 GET (11,11)-(39,24),sfeld 799 
26 FOR a=16 TO 22 375 65 799 
27 c=a-7 344 66 FOR b=0 TO 12 967 
28 PSET (10,c),c 124 67 FOR a=0 TO 12-mi 517 
29 PSET (9,c),c 380 68 PUT (11+a*30+rx,11+ry),£feld,PSET 558 
30 PSET (c-6,16),c 769 2} 69 PUT (11#+rx,11+a*15+ry), feld, PSET 390 
31 769 70 NEXTa 262 
32 PSET (10,a),b 086 71 rxerx+30:rysry+15:mi=mi+l 230 


anuar/88 
PUB RENT 


72 NEXT b 335 174 o=1 851 


73 335 175 FOR a=0 TO 7 062 
74 LINE (41,26)-(369,39),0,b£ 749 176 Px=INT( (s1(0)/9)+2)*30+11 163 
75 LINE (41,26)-(69,189),0,b£ 050 177 py=1s1(0}-(INT(s1(0)/9)*9))*15+26 966 
76 LINE (68,176)-(369,189),0,b£ 469 ı78 I? s1(0)/9=INT(s1(0)/9) THEN 
77 LINE (341,26)-(369,189) ,0,b£ 328 py=161:px=INT(((s1(0)-1)/9)+2)*30+11 509 
78 PUT (130,26) ‚stern, PSET 674 179 IF 0<5 THEN PUT (px,py) ,Figurl,PSET ELSE PUT 
79 PUT (351,32) ‚stern, PSET 022 (px,py) ‚Figur2,PSET 003 
80 PUT (56,150) ,stern,PSET 113 180 o=o+1 566 
81 PUT (207,176) ‚stern,PSET 762 181 NEXT a 054 
82 LINE (41,108)-(69,108),15 933 182 WURF 990 
83 LINE (41,107)-(69,107),14 077 183 930 
84 LINE (41,109)-(69,109) ,14 753 184 GOSUB COLORS 380 
85 LINE (41,106)-(69,106) ,13 050 185 380 
86 LINE (41,110)-(69,110) ,13 041 186 PROBE: 358 
87 041 187 COMMAND "Klick eine[4SPACES]Figur 
88 DIM ei(50) 815 deiner [2SPACES]Wahl an" 919 
89 GET (41,106)-(69,110),ei 249 ı88 919 
90 PUT (341,106) ‚ei,PSET 308 189 BACK: 366 
91 LINE (205,176)-(206,139) ,15,b£ 320 190 FOR a=0 TO 5:m=MOUSE (0) :NEXT 7125 
92 LINE (203,176)-(204,189) ,14,b£ 051 191 mau=0:60SUB MAUSINNEN 018 
93 LINE (207,176)-(208,199) ,14,b£ 310 192 IF s£(punkt)<5 AND sp=2 AND sf(punkt)<>0 THEN 
94 LINE (201,176)-(202,189) ,13,bf 232 :COMMAND "O.K. Wohin[4SPACES]soll 
95 LINE (209,176)-(210,189) ,13,b£ 377 die[6SPACES]Figur?" :epunkt=punkt :finr=s£f (punkt) :6 
96 GET (201,176)-(210,189),ei 800 OTO Nachabf 499 
97 PUT (201,26) ,ei,PSET ı71 193 IF s£f(punkt)>4 AND sp=1 AND sf(punkt)<>0 THEN 
98 ERASE ei 017 :COMMAND "O.K. Wohin[4SPACES]soll 
99 017 die[6SPACES)Figur?" :epunkt=punkt:finr=sf (punkt) :G 
100 start: 409 OTO Nachabf 952 
101 aupunkt(1)=5 745 194 COMMAND "Fehler!!!{SSPACES]Bitte 
102 aupunkt (2)=17 377 noch[4SPACESJeinmal.” 060 
103 aupunkt (3)=29 385 195 GOTO BACK 130 
104 aupunkt {4)=41 268 196 130 
105 268 197 Nachabf: 271 
106 SP2 801 198 FOR a=0 TO 5:m=MOUSE(0) :NEXT 615 
107 GOSUB AUSSEN 132 199 mau=1:G0SUB MAUSINNEN 296 
108 132 200 296 
109 DIM s£(81) 501 201 "Abfrage - auf eine andere Figur? 839 
110 s£(13)=1:s£(16)=2:5£(34)=3:5£(52)=4 102 202 IF s£(punkt)<>0 THEN GOTO EVSCHLAGEN 316 
111 s£f(30)=5:5£(48)=6:sf(66)=7:5£(69)=8 060 203 316 
112 s1(1)=13:81(2)=16:51(3)=34:51(4)=52 369 204 '------ Variablen-------- 051 
113 s1(5)=30:51(6)=48:51(7)=66:51(8)=69 895 205 SPU=epunkt- (INT(epunkt/9)*9) 743 
114 895 206 IF epunkt/9=INTlepunkt/9) THEN SPU=9 386 
115 Al=4 "Figuren 217 207 SPN=punkt- (INT{punkt/9)*9) 025 
116 A2=4 "Figuren 628 208 IF punkt/9=INT(punkt/9) THEN SPN=9 327 
117 628 209 SPR=(INT(epunkt/9) )+1 517 
118 CIRCLE (85,47),13,2 985 210 IF epunkt/9=INTiepunkt/9) THEN SPR=epunkt/9 oı11 
119 PAINT (35,47),2,2 994 211 SPL={INT(punkt/9))+1 818 
120 LINE (79,44)-(91,50),4,b£ 968 212 IF punkt/9=INT (punkt/9) THEN SPL=punkt/9 907 
121 LINE (76,46)-(94,48) ,4,b£ 211 . 590 
122 DIM Figur2(100) 290 565 
123 GET (71,41)-(99,55) ,‚Figur2 665 240 
124 CIRCLE (85,47),13,8 912 216 COLOR 15,0 465 
125 PAINT (85,47),8,8 745 217 IF (SPU-wuerfel)=SPN THEN BERECHNUNG 322 
126 LINE (79,44)-(91,50),6,b£ 597 218 IF (SPU+twuerfel)=SPN THEN BERECHNUNG 993 
127 LINE (76,46)-(94,48),6,b£ 646 219 IF SPU=SPN AND SPR+wuerfel=SPL THEN BERECHNUNG 035 
. 128 DIM Figur1(100) 836 220 IF SPU=SPN AND SPR-wuerfel=SPL THEN BERECHNUNG 999 
129 GET (71,41)-(99,55) ,Figuri 482 221 COMMAND "Fehler!!![SSPACES]JBitte nochmal." 739 
130 PUT (71,41), £eld,PSET 656 222 739 
131 fa=14 409 223 GOTO Nachabf 735 
132 409 224 735 
133 FOR a=1 TO $ 792 225 '---------- 402 
134 LINE (500-a,12-a)-(620+a2,98+a),fa,b 009 226 BERECHNUNG: 797 
135 LINE (500-a,110-a)-(620+2,150+a),£a,b 478 
136 LINE (420-a,12-a}-(480+4,192+a),fa,b 659 
137 £a=fa-1 888 
138 NEXT a 208 
139 208 
140 LINE (421,12)-(480,191),0,b£ 484 
141 LINE (420,187)-(450,192) ,2,b£ 872 
142 LINE (451,187)-(480,192),8,b£f 417 
143 LINE (420,137)-(480,188) ,15,b£f 037 
144 037 
145 LINE (430,156)-(440,136),12,b£ 173 
146 LINE (460,156)-(470,186) ,12,b£f 475 
147 475 
148 LINE (497,161)-(557,175),15,b£ 854 
149 LINE (496,160)-(558,176) ,14,b 334 
150 LINE (495,159) -(559,177),13,b 106 
151 LINE (565,161)-(625,175),15,b£ 077 
152 LINE (564,160)-(626,17£),14,b 065 
153 LINE (563,159)-(627,177),13,b 081 
154 081 
155 LINE (497,181)-(557,195) ,15,b£ 752 
156 LINE (496,180)-(558,196),14,b 100 
157 LINE (495,179)-(559,197),13,b 036 
158 LINE (565,181)-(625,195),15,b£ . 883 
159 LINE (564,180)-(626,196),14,b 947 
160 LINE (563,179)-(627,197),13,b 479 
161 479 
162 LOCATE 22,1:COLOR 8,15 003 
163 PRINT PTAB (512) "NEIN" 906 
164 LOCATE 22,1 343 
165 PRINT PTAB(580) "ENDE" 933 
166 LOCATE 24,1 320 
167 PRINT PTAB(501)"B A F F" 930 
168 LOCATE 24,1 013 
169 PRINT PTAB(580) "INFO" 835 
170 835 
171 PS1=50 ' Punkte = 50 728 
172 PS2=50 ' Punkte = 50 898 
173 298 
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"Alter Punkt Berechnung 


Px=INT ( (epunkt/9) +2) *«30+11 

py= (epunkt- (INT(epunkt/9)*9))*15+26 

IF epunkt/9=INT(epunkt/9) THEN 
py=161:px=INT(((epunkt-1) /9)+2)*30+11 
PUT (px,py),feld,PSET 


‘Neuer Punkt Berechnung 


px=INT( (punkt/9)+2) *30+11 

py=(punkt-(INT(punkt/9)*9) ) *15+26 

IF punkt/9=INT (punkt/9) THEN 

py=161:px=INT(( (punkt-1)/9)+2)*30+11 

IF sp=1 THEN PUT (px,py) ‚Figur2,PSET ELSE PUT 
(px.py),Figur1,PSET 

sf (epunkt)=0 

sf (punkt)=finr 


SPIEL: 

"Spielerwechsel 

IF sp=1 THEN :SP2 ELSE :SPi 

"Neu Wuerfeln 

WURF 

we=we+tl:IF we=4 THEN we=0:G0SUB AUSSEN 
GOTO PROBE 


EVSCHLAGEN: y 
IF s£(punkt)<5 AND sp=2 THEN :COMMAND 

"Fehler!!! [5SPACES]Bitte nochmal.":GOTO Nachabf 
IF s£f(punkt)>4 AND sp=1 THEN :COMMAND 

"Fehler!!! [5SPACES]Bitte nochmal.":GOTO Nachabf 
sf (punkt)=sf (epunkt) 
s£(punkt)=0 


IF sp=2 THEN PS1=PS1-20:PS2=PS2+30:Al=Al-1 
IF sp=1 THEN PS1=PS1+30:PS2=PS2-20:A2=A2-1 
GOSUB PUNKTE 


IF Al<1 THEN VL=2:GOSUB ENDE 
IF A2<1 THEN VL=1:G0SUB ENDE 
GOTO BERECHNUNG 


SUB COMMAND (a$) STATIC 

re=0 

LINE (500,110)-(620,150) ,15.b£ 
LOCATE 15,64:COLOR 4,15 

la=LEN (a$) 


FOR a=0 TO la/l4 
LOCATE 15+a,64 
PRINT MIDS(a$,re+1,14) 
re=re+14 

NEXT a 


Wal SUB 

suB WURF STATIC 

SHARED wuerfel 

LINE (500,12)-(620,98) ,15,b 
far=15 


FOR a=1 TO 7 

LINE (501,a*12+1)-(619,a*12+13) ,£far,b£ 
far=far-1 

NEXT a 


again: 
wuerfel=INT(5*RND(1))+1 

IF wuerfel=ewrem THEN again 
wrem=wuerfel 
op=(8-wuerfel) *12+3 


ARER (560,0p) 

AREA (501,97) 

AREA (619,97) 

COLOR 5,0 

AREAFILL 

LOCATE 12,1:COLOR 0,5 
PRINT PTAB (548) wuerfel 
END SUB 


MAUSINNEN: 

m=MOUSE (0) :x=MOUSE (1) :y=MOUSE (2) 

IF m<>0 THEN wei 

GOTO MAUSINNEN 

wei: 
IF x>73 AND y>42 AND x<340 AND y<176 THEN weit 
IF x>497 AND y>161 AND x<557 AND y<175 THEN NEIN 
IF x>565 AND y>161 AND x<625 AND y<175 THEN 
SYSTEM 
IF x>497 AND y>181 AND x<557 AND y<195 THEN BAFF 
IF x>565 AND y>i181 AND x<625 AND y<195 THEN INFO 


GOTO MAUSINNEN 


weit: 
x%=INT((x-70)/30) 
y=(INT((y-40)/15))+1 


160 
160 
468 
249 


017 
275 
275 
566 
566 
009 
472 


217 


188 
79% 
738 
738 
769 
344 
693 
856 
032 
412 
337 
337 
324 
798 


962 


026 
352 
109 
109 
121 
594 
585 
585 
361 
041 
051 
051 
702 
973 
400 
431 
391 
797 
956 
163 
163 
416 
772 
545 
208 
384 
384 
053 
728 
250 
135 
411 
875 
875 
819 
804 
601 
897 
897 
611 
983 
492 
191 
106 
106 
926 
194 
780 
516 
636 
910 
954 
815 
815 
171 
117 
347 
834 
993 
512 
501 


797 
015 
002 
002 
465 
465 
420 
008 
839 


ae, oe 


LISTING 


324 
325 
326 
327 
323 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 


348 
349 
350 


351 
352 
353 
354 
355 
356 


357 


358 


359 


360 
361 
362 
363 
364 
365 


366 
367 
368 
369 
370 


371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
2384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 


401 
402 
403 
404 
405 
406 
407 
408 
409 
410 


punkt=x"9+y 
RETURN 


SUB SP1 STATIC 

SHARED sp 
sp=1 
PALETTE 17,.5,.08,.083 
PALETTE 18,.5,.08,.08 
PALETTE 19,.5,.08,.08 
2 3 

END SUB 


suUB SP2 STATIC 
SHARED sp 
sp=2 
PALETTE 17,1,.5, 
PALETTE 18,1,.5, 
PALETTE 19,1,.5, 
G 
END SUB 


.5 
.$ 
+5 


AUSSEN: 
FOR a=s1 TO 4 
IF aupunkt(a)>0 AND aupunkt(a)<14 THEN PUT 
(11, (aupunkt (a) -1)*15+11), feld, PSET 
IF aupunkt(a)>13 AND aupunkt (a) <26 THEN PUT 
(taupunkt(a)-13) *30+11,191) , feld, PSET 
IF aupunkt (a)>25 AND aupunkt (a)<38 THEN PUT 
(371, (12-(aupunkt (a)-25))*15+11), feld, PSET 
IF aupunkt (a)>37 AND aupunkt (a)<49 THEN PUT 
((12- (aupunkt (a)-37))*30+11,11),£eld,PSET 
aupunkt {a)=aupunkt(a)+2 
IF aupunkt (a)>=49 THEN aupunkt (a)=1 
NEXT a 
aunummer=1 
FOR a=0 TO 3 
IF aupunkt (aunummer)>0 AND aupunkt (aunummer)<14 
THEN PUT 
(11, (aupunkt (aunummer)-1) *15+11),sfeld, PSET 
IF aupunkt (aunummer)>13 AND aupunkt (aunummer) <26 
THEN PUT 
(taupunkt (aunummer)-13)*30+11,191),sfeld,PSET 
IF aupunkt (aunummer)>25 AND aupunkt (aunummer) <38 
THEN PUT 
(371, (12- (aupunkt (aunummer)-25) ) *15+11),sfeld, PSE 
YY 
IF aupunkt (aunummer)>37 AND aupunkt (aunummer) <49 
THEN PUT 
((12- (aupunkt (aunummer)-37))*30+11,11),sfeld,PSET 
aunummer=aunummer+i 
NEXT a 
RETURN 


BAFF: 
IF mau=0 THEN :COMMAND "Du musst erst eine 
Figur [4SPACES]Janklicken.":GOTO BACK 
IF punkt=5 THEN FIG 
IF punkt=45 THEN FIG 
IF punkt=77 THEN FIG 
IF punkt=37 THEN FIG 
:COMMAND "Aber doch[5SPACES]nicht mit der 
Figuriii" 
FOR war=0 TO 2200:NEXT 
GOTO PROBE 


FIG: 

IF s£(punkt)<5 AND sp=1 THEN 
COMMAND "Falsche Figur!” 
FOR war=0 TO 2000:NEXT 
GOTO PROBE 

END IF 

IF s£f(punkt)>4 AND sp=2 THEN 
:COMMAND "Falsche Figur!" 
FOR war=0 TO 2000:NEXT 
GOTO PROBE 

END IF 


such=6 

such=18 
such=30 
such=42 


IF punkt=5 THEN 
IF punkt=45 THEN 
IF punkt=77 THEN 
IF punkt=37 THEN 


FOR a=1 TO 4 

IF aupunkt (a)-1=such THEN Erlaubt 
NEXT a 
GOTO Nerlaubt 


Erlaubt: 


px=INT ( (punkt/9) +2) *30+11 

py= (punkt- (INT(punkt/9)*9) ) *15+26 

IF punkt/9=INT(punkt/9) THEN 
py=161:px=INT(((punkt-1)/9)+2)*30+11 
PUT (px.py),£feld,PSET 

sf(punkt)=0 
IF sp=1 THEN 
IF sp=2 THEN 

GOSUB PUNKTE 
IF Al<1 THEN 
IF A2<1 THEN 

GOTO SPIEL 


PS1=PS1+35:PS2=PS2-10:Al=Al-1 
PS2=PS2+35:PS1=PS1-10:A2=A2-1 


VL=2:G0OSUB ENDE 
VL=1:G0SUB ENDE 


Nerlaubt: 


a EN el 


u Fe ET Pen iiE Vu Zen ER a 1 a Sin Ya # Tg Bi et Ze al SS 1 u 1 2E i e m Ze Da a 0 Def 1 Ur a 2 u 4. u 0 Bi 


411 g 386 498 a: 793 
412 COMMAND "Das war nicht erlaubt! Es[3SPACES]gibt 499 793 
einen[4SPACESJAbzug von 25!" 110 500 a$=INKEY$S:IF a$="" THEN a 218 
413 IF sp=1 THEN PS1=PS1-25:PS2=PS2+5 295 501 a$=UCASES$ (a$) 107 
414 IF sp=2 THEN PS2=PS2-25:PS1=PS1+5 741 502 IF a$="J" OR a$="Y" THEN b ELSE SYSTEM 893 
j 415 GOSUB PUNKTE 748 503 GOTO a 027 
] 416 748 504 027 
j 417 again2: 272 505 b: 799 
418 NFELD=INT(SO*RND(1))+1 030 506 799 
| 419 IF s£f(NFELD)<>0 THEN again2 051 507 a=0:b=0:0=-0:x=0:y=0:fa=0:mi=0:rx=0:ry=0:px=0:py=0 912 
| 420 051 508 mau=0:wuerfel=0:SPU=0:SPN=0:SPL=0:SPR=0:we=0:VL=0 570 
| 421 sf (NFELD)=s£ (punkt) :s£f(punkt)=0 970 509 punkt=0:co=0 154 
422 970 5ı0 154 
423 px=INT( (NFELD/9)+2) *30+11 516 511 ERASE stern, feld,sfeld,sf,Figur2,Figuri 465 
424 py=(NFELD- (INT(NFELD/9)*9) )*15+26 409 512 465 
425 IF NFELD/9=INT(NFELD/9) THEN 513 W 036 
py=161:px=INT( ((NFELD-1)/9)+2) *30+11 807 514 036 
426 IF sp=1 THEN PUT (px,py),Figur2,PSET ELSE PUT 515 GOTO startp 083 
(px, py) ‚Figuri,PSET 154 316, main nn u ne - 118 
427 154 517 SUB BLITZ STATIC 025 
428 px=INT( (punkt/9)+2)"30+11 669 518 025 
429 py=(punkt- (INT (punkt/9)*9) )*15+26 372 519 AREA (310,1) a0a 
430 IF punkt/9=INT (punkt/9) THEN 520 AREA (325,1) 305 
py=161:px=INT(((punkt-1)/9)+2)*«30+11 989 521 AREA (295,50) 640 
431 PUT (px,py),£feld,PSET 303 522 AREA (345,25) 449 
432 303 523 AREA (280,141) 943 
433 GOTO SPIEL N 149 524 AREA (300,130) 364 
434 mm nenn nn nn 976 525 AREA (267,158) 727 
435 NEIN: 352 526 AREA (265,120) 597 
436 COMMAND "Auf Verweiger-ung 527 AREA (270,135) 525 
steht [SSPACES] Punkteabzug" 930 528 AREA (315,55) 022 
437 IF sp=1 THEN PSi=P$S1-15:PS2=Ps2+5 406 529 AREA (260,80) 224 / 
438 IF sp=2 THEN PS2=PS2-15:PS1=PS1+5 747 530 224 
439 GOSUB PUNKTE , 298 531 AREAFILL 192 
440 FOR war=0 TO 1000:NEX 425 532 END SUB 141- 
441 GOTO SPIEL 607 533 141 
442 '-------mmmunnunnn 786 534 '--- mm 872 
443 INFO: 444 535 COLORS: 216 
444 COMMAND "[3SPACESJBA F 536 b=.5 586 
F[SSPACES] von [2SPACES] Thomas [6SPACES]M"+CHRS (246) +" 537 col=col+1:IF col>1 THEN ERASE fa 8ı1 
1ler[3SPACES) (1987) * 675 538 DIM £a(100) 918 
445 FOR wa=0 TO 3000:NEXT 962 539 918 
446 GOTO PROBE 831 540 FOR a=9 TO 15 197 
447 "auimunnnnnnannnn nn 602 541 PALETTE a,co,co,b 507 
448 PUNKTE: 823 542 b=b+.5/6 387 
449 IF PSi<=0 OR PS1>=172 THEN VL=2:G0SUB ENDE 255 543 co=c0+.08 013 
450 IF PS2<=0 OR PS2>=172 THEN VL=1:G0SUB ENDE 980 544 NEXT a 661 
451 LINE (421,12)-(480,186),0,b£ 712 545 661 
452 LINE (430,186-PS1)-(440,186) ,12,b£ 200 546 b=.5 : co=0 : nu=0 554 
453 LINE (460,186-PS2)-(470,186) ,12,b£f 811 547 554 
454 RETURN 387 548 FOR a=2:T0 8 696 
455 I------- nn 974 549 beb+,5/7 481 
456 ENDE: 520 550 c0=c0+.08 427 
457 ' Spieler null? 655 551 PALETTE a,b,co,co 473 
458 655 552 falnu)=eb : £fa(nu+l)=co : nu=nu+2 125 
459 IF PS1<0O THEN PSi1=0:VL=2:VL$="Dunkel hat null 553 NEXT a 901 
Punkte.":GOTO wet 205 554 901 
460 IF PS2<0 THEN PS2=0:VL=1:VL$=" Hell hat null 555 RETURN 629 
Punkte.":GOTO wet 318 556 629 
461 ' Wer hat mehr Punkte? 077 557 '---Vorspann----- 024 
462 j 077 558 024 
463 IF PS1<PS2 THEN VL=2:VL$=" Hell hat mehr 559 VORSPANN: 437 
Punkte.":GOTO wet 040 560 437 
464 IF PS2<PS1 THEN VL=1:VL$="Dunkel hat mehr 561 K 660 
Punkte.":GOTO wet 636 562 660 
465 ' Punktegleichstand!!! 115 563 b=15 493 
j 466 ' Wer hat noch mehr Steine? 534 564 493 
467 534 565 FOR a=16 TO 22 156 
468 IF Al<A2 THEN VL=2:VL$=" Hell hat mehr Steine.":60T0 566 c=a-7 969 
wet 994 567 PSET (10,c),c 785 
469 IF A2<Al THEN VL=1:VL$="Dunkel hat mehr 568 PSET (9,c),c 873 
Steine.":GOTO wet 139 569 BSET (c-6,16),c 162 
470 139 570 162 
471 wet: 457 571 PSET (10,a},b 347 
472 457 572 _PSET (a-6,16),b 513 
473 FOR bl=0 TO 10 579 573 b=b-1 140 
474 COLOR 0,0 506 574 NEXT a 092 
475 BLITZ 063 575 092 
476 IF VL=1 THEN COLOR 8,0 ELSE COLOR 3,0 059 576 DIM stern(200) 953 
477 BLITZ 012 577 GET (4,10)-(17,23),stern 642 
478 NEXT bl 389 578 CLS 556 
479 389 579 556 
480 CLS 723 580 FOR a=0 TO 16 155 
481 BLITZ 276 581 FOR b=0 TO i r 637 
482 276 582 x=(INT(I36*RND(1)))*17 510 
483 COLOR 15,0 533 583 BUT (x,y),stern,PSET 365 
484 LOCATE 2,30:PRINT "Herzlichen Gl"CHRS(252)"ckwunsch" 677 584 NEXT b 246 
485 IF VL=2 THEN LOCATE 4,32:PRINT "Hell hat gewonnen" 585 y-y+14d 737 
ELSE LOCATE 4,31:PRINT "Dunkel hat gewonnen" 644 586 NEXT a 433 
486 LOCATE 5,29:PRINT VL$ 741 587 - 433 
487 741 588 LOCATE 1,1:COLOR 1,0:PRINT "Baff" 439 
488 LOCATE 9,21 153 589 439 
489 PRINT "Das Punkteverh"CHR$(228)"1tnis war: 590 FOR b=0 TO 6 734 
Hell[3SPACES]= "ps2 601 591 FOR a=0 TO 30 665 
490 LOCATE 10,47 325 592 IF POINT (a,b)=1 THEN LINE 
491 PRINT "Dunkel = "Ps1 670 (136+a*10,50+b*10)-(145+a*10,59+b*10) ,8-b,b£f 318 
492 LOCATE 13,21 897 593 NEXT a 230 
493 PRINT "Das Steineverh"CHRS(228)"Itnis war: 594 NEXT b 335 
Hell[3SPACES]= "A2 352 595 335 
494 LOCATE 14,47 600 „27: g " Th 
495 PRINT "Dunkel = "Al 715 a or ee NE nee 718 
496 LOCATE 17,22 499 597 LOCATE 20,27:COLOR 2,0:PRINT "[SSPACESJin 1987 285 
497 PRINT "Wollt ihr ein neues Spiel antreten?" 330 598 285 
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LISTING 


599 GOSUB COLORS 267 640 NEXT a 642 
600 267 sa 642 
601 nu=0 223 642 RETURN 354 
602 startfarbe=2 180 643 ' Sounds 545 
603 19 394 644 SUB T STATIC 975 
604 394 645 975 
605 farbe=startfarbe 229 646 FOR a=0 TO 20 STEP 2 299 
606 229 647  y=200+SIN(a/2)*90 602 
607 FOR a=0 TO 6 071 648 SOUND y,.8,255,3 077 
608 PALETTE farbe, fa(nu) ,‚fa(nu+1), £fa(nu+1) 467 649 NEXT a 213 
609 nusnu#+2 623 650 213 
610 farbe=farbe+1:IF farbe>8 THEN farbe=2 217 651 END SUB 982 
611 IF INKEY$<>"" THEN 20 251 7 652 '----—munnnnnnnnnnnnnn 517 
612 m=MOUSE(O):IF m<>0 THEN 20 964 = 653 SUB G STATIC 058 
613 NEXT a 980 Ze 654 058 
614 se0 BE 655 FOR a=0 To 10 619 
615 nu=0 952 = 656 y=-INT(4000*RND (1))+3000 995 
616 startfarbe=startfarbe+l:IF startfarbe>8 THEN Bi 657 SOUND y,.31,255,3 370 

startfarbe=2 636 BE 658 NEXT a 658 
617 686 Wi 659 658 
618 GOTO 19 5255 WE 560 END suB 591 
619 525 U 661 '----- 578 
620 20 359 662 SUB K STATIC 275 
621 fa=9 784 = 663 275 
622 784 = 664 FOR a=0 TO 50 508 
623 FOR a=0 TO 110 STEP 2 192 E 665 y=INT (700*RND (1) ) 101 
624 LINE (0,a)-(630,a),fa 881 665 SOUND y,.31,255,3 652 
625 LINE (0,220-a)-(630,220-a) ‚fa 208 667 NEXT a 604 
626 IF ri=0 THEN fa=fa+l : IF fa>15 THEN ri=1 409 668 604 
627 IF ri=1 THEN fa=sfa-1 : IF £fa<10 THEN ri=0 953 669 END SUB 769 
628 NEXT a 481 670 '------ nme 844 
629 481 671 SUB W STATIC 953 
630 FOR a=0 TO 110 STEP 2 005 \ 672 953 
631 LINE (0,a)-(630,a+1),0,b£ 631 EEE 673 FOR a=0 TO 30 520 
632 LINE (0,220-a)-(630,221-a) ,O,b£ 812 Ze 674 y=INT(3500*RND(1)) 978 
633 NEXT a 484 Bu 675 SOUND y,.18,255,3 434 
634 484 = 676 NEXT a 210 
635 ERASE stern:co=0:a=0:ri=0:fa=0:startfarbe=0:m=0 274 = 677 210 
636 nu=0:x=0:y=0:c=0:b=0 128 BE 678 END SUB 399 
637 128 = 619 I ENDE-------- 130 
638 FOR a=0 TO 15 390 = 680 '---- mm 729 
639 PALETTE a,0,0,0 442 4 


Viel Spaß für zwei mit dem BASIC-Listing Baft. 


Ich bestelle die 

RUN-o-thek AMIGA 
Super-Diskette mit 
InvaderCraft zum Preis — 
inklusive Versandkostenanteil — 
von nur DM 34, -. 


7 Ein unterschriebener 
Verrechnungsscheck über 
DM 34, — liegt bei. 


[I Ich bezahle die 
RUN-o-thek 
AMIGA Super-Diskette 
per Nachnahme zum Preis 
von DM 34, — 
zuzüglich Nachnahmegebühr. 


Dem klassischen Spielhallen-Knüller: InvaderCraft 


Doppel-Icon 


Börsenspiel: Aktien kaufen und verkaufen 
wie Dagobert Duck, Flick und der Vatikan. 


Directory-Klick 
Check-Summer für BASIC und C 


Name, Vorname 


und Versandkostenanteil, = DM 34, —. 
Bei Nachnahmebestellung zuzüglich Nachnahmegebühr. 


Bestellnummer: 724 PLZ, Ort 


Datum, Unterschrift 
(bei Minderjährigen Unterschrift des 
Erziehungsberechtigten) 


CW-Publikationen, RUN-o-thek, Postfach 40 04 29 
8000 München 40 
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bertragen von 
dem meistver- 


kauftem Text- 
programm der 
MS-DOS-Welt, steht die 


Amiga-Version von Word- 
Perfect seinen Vorfahren in 
nichts nach. Neben den 
grundlegenden Möglichkei- 
ten, den Text zu manipulie- 
ren, besitzt das Programm 
einige besondere Spezialitä- 
ten. So werden zum Beispiel 
die Fußnoten automatisch 
durchnumeriert und pla- 
ziert. Andere Textprogram- 
me für den Amiga kennen 


das Feature „Fußnote“ 
überhaupt nicht. Dabei ist 
eine vernünftige Fußnoten- 
verwaltung unabdingbar, 
denn der Student oder der 
Doktorant will seine akade- 
mische Arbeit nicht auf der 
Schreibmaschine schreiben, 
während er mit seinem 
Computer gerade noch die 
Post für die Brieffreundin 
erledigen kann. WordPer- 
fect also kann es und noch 
viel mehr. Tabellen lassen 
sich aufrufen, die den Inhalt 
anzeigen (zum Beispiel wie 
oft das Wort „man“ verwen- 


Umfangreiche Dokumentation ist selbstverständlich für WordPerfect. 


MA BEER ur, 


öDFTWARF 


PERFERTER 
WORTUMGANG 


Apple, IBM, Data General und sogar der DEC- 
Rechner kennen es. Der Amiga bisher jedoch nicht. 
Nun gibt es WordPerfect auch für den 


Commodore-68000er. 


Project Edit Search ASTITEiz Style 


Center 


Tab Align 
Left Inde 
L/R Inden 


Print Special 


Pitch/Font... 
Lines per Inch. ,, 
Justification 
Flush Rita) ä 


Printer Command, .. 


Mangin Release 


Pg 1 In 1 Pos 18 


Neben den üblichen Tastenbefehlen kennt die Amiga-Version auch 


Pull-Down-Menüs 


det wurde); bis zu fünf Ko- 
lumnen lassen sich gleichzei- 
tig darstellen und editieren; 
numerische Tabellen lassen 
sich bequem aufbauen und 
Zahlenwerte lassen sich im 
Programm berechnen. 
Rechtschreibfehler lassen 
sich mit einem 115 000 Wör- 
ter (amerikanische Version) 
umfassenden Wörterbuch 
ausmerzen, Grammatikfeh- 
ler muß der Schreiber weiter 
selbst ausbügeln. WordPer- 
fect kennt außerdem Text- 
bausteine, natürlich eine 
Merge-Funktion und kann 
200 verschiedene Drucker 
ansteuern. Dank eines Druk- 
kerspoolerss kann man 
weiterarbeiten, während der 
Drucker noch wirbelt. Die 
Struktur der abgelegten Da- 


tenfiles, und das ist für 
2000er-Besitzer wichtig, ist 
kompatibel zu der IBM-Ver- 
sion 4.1 von WordPerfect. 
Wer sich darüber Gedanken 
macht, wie man all diese 
Kommandos behalten kann, 
dem hilft das gut aufgebaute 
englische Handbuch. Eine 
Version, in der Benutzerfüh- 
rung und Handbuch ins 
Deutsche übersetzt sind, ist 
in Arbeit. Einziger und 
schwerwiegender Haken an 
diesem Programm ist sein 
Preis: 395 U.S. Dollar sind 
ein fetter Brocken. Für viele 
scheidet dieses hervorragen- 
de Programm daher aus der 
engeren Wahl aus. 


Info: WordPerfekt GmbH, Frankfurter 
Str. 33-35, 6236 Eschborn, Tel.: 06196/ 
48 17 22 
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athemati- 
sche Funk- 
tionen 
zeichnen und 
komplette Kurvendiskussio- 
nen erstellen, das kann das 
BASIC-Programm „Pro- 
plot“. Es wird ohne Zeilen- 
nummern eingegeben. Mit 
dem AmigaChecker, der in 
der Amiga-Welt 1/88 abge- 
druckt ist und sich auch auf 
den aktuellen Amiga-Leser- 
disketten befindet, läßt sich 
dieses Programm auf fehler- 
freie Eingabe überprüfen. 
Nur in diesem Falle ist die 
Checksumme miteinzuge- 
ben. Ist das Programm fer- 
tig abgetippt und abgesaved, 
sind folgende Dinge zu be- 
achten: 

Nach dem Start des Pro- 
gramms erscheint ein Menü, 
dessen Unterpunkte mit der 
linken Maustaste angewählt 
werden. 


1. Funktion eingeben 

Hier muß die Funktion f(x) 
in Basic-Syntax eingegeben 
werden. Die Auswertung des 
Funktionsstrings erfolgt 
nach einem ungewöhnlichen 
Verfahren: Der Funktions- 
string wird als sequentielles 
ASCIH--File in die RAM- 
Floppy abgespeichert und 
dann als Programmfile hin- 
ten an das Programm „ge- 
merget“. Dadurch entfällt 
ein zeitaufwendiges „Par- 
sen“ der Funktion. 

Der Funktionstherm er- 
scheint in einem kleinen 
Window in der oberen lin- 
ken Bildschirmecke. In dem 
man die Maus zum linken 
Bildschirmrand bewegt, 
kann dieses Window an- 
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Rechenleistung können die 6800er 
sowieso vorweisen. Der Amiga brilliert zudem noch 
mit hervorragenden Grafikeigenschaften. 

Was liegt näher, als die mathematischen und 
grafischen Arbeiten, die bei einer 
Kurvendiskussion anfallen, diesem Computer 
zu überlassen. 


Parameter ändern 
Kopvendiskussion | 
m 


löschen/eichnen | 
Zeichennedus: | 


X-Bereich: 
-1% 
18 


Ei 
1 
l 


L 


Proplot ist ein tolles Hilfsmittel bei den Schularbeiten. 


und ausgeschaltet werden. 
2. Parameter ändern 

Hier wird der Bereich einge- 
geben, in dem die Funktion 
gezeichnet werden soll. Vor- 
eingestellt sind hier die Wer- 
te -8.5 bis 8.5 für die X-Ach- 
se und -7.5 bis 7.5 für die Y- 
Achse. Bei diesen Werten ist 
eine Unterteilungseinheit 
auf der X-Achse etwa ge- 
nauso lang wie auf der Y- 
Achse. 

Die Koordinatenachsen er- 
scheinen dann den Eingaben 
entsprechend auf dem Bild- 
schirm. Die Unterteilungs- 
striche auf den Achsen ent- 
sprechen immer ganzzahli- 
gen Vielfachen von geeigne- 
ten Zehnerpotenzen. Außer- 


METER NONE RRTSERRE FEN 


dem kann mit der linken 
Maustaste ein kleines Kreuz 
im Koordinatensystem pla- 
ziert werden, dessen Koordi- 
naten man in der linken un- 
teren Bildschirmecke findet. 
So können ganz bestimmte 
Punkte im Koordinatensy- 
stem bestimmt werden. 

3. Kurvendiskussion 

Vor Beginn der Kurvendis- 
kussion kann der X-Bereich 
geändert werden, in dem die 
Kurve untersucht werden 
soll. Voreingestellt sind hier 
die Werte, die beim Punkt 
„Parameter ändern“ einge- 
geben wurden. Auf Wunsch 
wird der Flächeninhalt zwi- 
schen dem Graphen der 
Funktion und der X-Achse 


bestimmt, was jedoch die 
Rechenzeit erhöht. In die- 
sem Fall erscheinen während 
der nun folgenden Ausgabe 
der Nullstellen die eizelnen 
Flächeninhalte zwischen den 
Nullstellen. Außerdem er- 
scheint am Schluß der Kur- 
vendiskussion die’ Summe 
der Absolutbeträge der ein- 
zelnen Flächenstücke (Flä- 
che) und die Summe unter 
Berücksichtigung der Vor- 
zeichen der Flächenstücke 
(Integral). 

Nach den Nullstellen erfolgt 
die Ausgabe der Extrem- 
punkte. Hierbei wird zwi- 
schen Hoch- und Tiefpunk- 
ten unterschieden. 
Anschließend erscheinen 
noch die Wende- und Sattel- 
punkte auf dem Bildschirm. 
Hier erfolgt eine Klassifizie- 
rung in Rechts-Links- und 
Links-Rechts-Wende- bezie- 
hungsweise Sattelpunkte. 
Sollte das Programm auf 


Definitionslücken stoßen, 
wird das Fenster für die 
Kurvendiskussion ausge- 


schaltet. Doch das ist kein 
Grund zur Beunruhigung, 
denn es wird zur rechten 
Zeit wieder eingeschaltet 
und die Definitionslücken 
werden mit ausgegeben. 


Möchte man die Kurvendis- 
kussion vorher abbrechen, 
wählt man den Unterpunkt 
„STOP“ aus dem „RUN“- 
Menü, oder man drückt die 
entsprechende Tastenkom- 
bination. Das Programm 
befindet sich dann wieder im 
Hauptmenü. 

4. Kurve zeichnen 

Der Graph der Funktion 
wird gezeichnet. Dabei wird 


das Fenster mit dem Funk- 
tionstherm ausgeschaltet. Es 
wird jedoch nach Beendi- 
gung des Zeichnens wieder 
eingeschaltet. Während des 
Zeichnens können die Me- 
nüfunktionen nicht ange- 
wählt werden. Das Zeichnen 
des Graphen kann nach dem 
gleichen Verfahren wie bei 
der Kurvendiskussion unter- 
brochen werden. Sollte diese 
Unterbrechungsfunktion 
angewandt werden, wenn 
das Programm nicht gerade 
sinen Graphen zeichnet oder 
ein Kurvendiskussion 
durchführt, wird das Pro- 
amm abgebrochen. 

5. Löschen/zeichnen 

Dieser Unterpunkt ent- 
spricht dem Punkt „Kurve 
sichnen“, nur das vorher 


der Bildschirm gelöscht wird 
und das Koordinatenkreuz 
neu gezeichnet wird. Auf 
diese Weise verschwinden 
Graphen, die sich vorher 
schon auf dem Bildschirm 
befanden. 

6. Zeichenmodus 
Voreingestellt ist hier der 
Modus „|“, bei dem alle auf- 
einanderfolgenden Kurven- 
punkte miteinander verbun- 
den werden. Dieser Modus 
kann aber bei Funktionen, 
die nicht in allen Punkten 
stetig sind, zum Beispiel f(x) 
=int(x), zu einer unkorrek- 
ten Zeichnung führen. Für 
diesen Fall ist der Modus „.“ 
da, bei dem die Punkte nicht 
miteinander verbunden 
sind. 

(Bernd Harder / Kai Schultheis) O 


System: Amiga 500, 1000, 


2000 
Programmname: ProPlot 
Sprache: Basic 
i BEM Huunnnau nern nee 4965 
© REM * “ 672 
3 REM * PROPLOT # 272 
EN ERS SEE erh ne ne nen « 064 
5 REM * € 840 
6 REM * created by « 7128 
7 REM * R 424 
8 REM * Kai Schultheis « 184 
9 REM * “ 288 
10 REN * and =” 400 
11 REM * . 704 
12 REM * Bernd Harder ” 944 
13 REM * e t 8838 
14 REM * 3% 8 7 « 736 
15 REM * « 616 
i6 REM * Copyright AMIGA % 120 
17 REM * . 992 
ı8 REM LEIZZZEZ ZI Z EZ ZZ ZZ ZZ I u 848 
19 REM 920 
20 REM 360 
21 360 
22 DATA 
0,09,0,0,0,0,0,0,0,0,0,2,0,0,0,16,0,0,0,9,0,25,0,3, 
0,0 926 
H 23 DATA 1,0,1,0,0,0,0,0,240,30,0,0,0,0,1,0,1,0 333 
24 DATA 1,0,1,0,0,0,0,0,240,30,0,0,0,0,1,0,1,0 264 
i 25 DATA 0,255,0,0,15,128 491 
26 FOR i=1 TO 68 866 
27 READ mo:0b$=0b$+CHR$ (mo) 754 
28 NEXT 147 
* 29 OBJECT.SHAPE 1,0b$ 019 
' 30 019 
B 31 xuf=-3.5:x0#=8.5 556 
32 yuf=-7.5:yo#=7.5 721 
33 mo=1:np=1 148 
34 WIDTH 79,9 849 
35 GOSUB menue 751 
36 OBJECT.ON 1 038 
37 al=7 932 
38 932 
39 maus: 812 
40 a3=MOUSE (0) 287 
41 IF MOUSE(1)>0 THEN mq=0 717 
2 IF MOUSE(1)<14 OR MOUSE(1)>188 THEN maus2 078 
43 a=MOUSE (2) 096 
44 IF ac3 OR a>98 THEN maus? 853 
45 a=ta-3)\16 618 
46 IF al=7 THEN a2=a:G60SUB mausli:al=a:G0TO maus 875 
47 IF a3>0 THEN 743 


P- y h ö -. r 
en ET er = 2 AN ee WEN 15 


Ka’ an Sm 9 


TE a 


al=7 
GOSUB mausi 
ON a+1 GoTo 


eingabe,parameter,kurvendiskussion, bildschirm, bild 


schirm, modus 

END IF 

IF a=al THEN maus 

a2=al:GOSUB mausl:a2=a:G0OSUB mausl:al=a:G0TO maus 
mausl:AREA(11,16+a2*16) 

AREA(185,16+a2*16) 

AREA(1835,6+a2*16) 

AREA (11,6+a2*16) 

AREAFILL 1 

RETURN 

maus?:IF MOUSE(1)=0 THEN GOSUB funktion 

IF MOUSE(1)<202 OR MOUSE(1)>616 THEN maus) 

IF MOUSE(2)<1 OR MOUSE(2)>185 THEN maus3 

IF a3>0 THEN xk=MOUSE (1) :yk=MOUSE(2) :GOSUB kreuz 
maus3:IF al=7 THEN maus 


GOSUB maus1:a1=7:G0TO maus 
menue: 
CLS:LINE(197,0)-(197,186) 


PRINT:PRINT" [ASPACES] Funktion ändern 
PRINT: PRINT" [A4SPACES] Parameter ändern 
PRINT: PRINT" [4SPACES]Kurvendiskussion 
PRINT:PRINT" [7SPACES) zeichnen 

PRINT: PRINT" [4SPACES]löschen/zeichnen 
PRINT:PRINT" [4SPACES]Zeichenmodus: "CHR$ (46+mo*78) 
PRINT: PRINT"X-Bereich: 

PRINT" [2SPACES] "LEFTS (STRS (xu#) ,24) 
PRINT" [2SPACES] "LEFT$ (STR$ (xo#) ‚24) 
PRINT: PRINT"Y-Bereich: 

PRINT" [2SPACES]) "LEFTS(STRS(yul) ,24) 
PRINT" [2SPACES] "LEFTS(STRS(yo#) ,24) 
LINE(0,102)-(196,102) 
LINE(0,131)-(196,131) 
LINE(0,163)-(196,163) 

FOR i=0 TO 6 
LINE(8,3+i*16)-(138,3+i*16) 

NEXT 

LINE(8,4)-(8,98) 

LINE(188,4)-(188,98) 


zeichnen: 

IF xuf#>0 THEN yn=202:60T0 zi 

IF xo#<0 THEN yn=616:60T0 zi 
yn=202+CINT(414*ABS (xuf#/ (xo#-xu#) )) 
zi:IF yu#>0 THEN xn=185:60T0 z2 

IF yo#<0O THEN xn=1:G0T0 z2 
xn=1+CINT(184*ABS(yo#/(yo#-yut))) 


z2:LINE(yn,185)-(yn,1):LINE- (yn-3,6) :LINE(yn,1)-(yn 


+3,6) 
LINE(202,xn)-(616,xn) :LINE- (609 ,xn+2) :LINE(616,xn)- 
(609, xn-2) 

DELL ARFUOH LROBTans} /ROGNA DR) TEUE T Un ee; 
IF SGN(xo#)*SGN(xu#)<O AND 10*mb<2 THEN mbenb+1 

IF xo#-xu#-INT (xo#-xu#) < (xo#-xu#)/50 THEN 
mb=CINT(10°mb) ELSE mb=INT(10"mb) 
ma#=10°CINT{LOG ( (xof#-xu#) /mb) /LOG(10#)-.1) 
mal:mc=INT(xu#/ma#+SGN (xuf/maf-INT(xu#/maf))) 

nc= (mce*ma#+i*ma#-xu#) / (xo#-xu#) +414+202 

i=i+1:IF ABS{mc-yn)<2 THEN mai 

LINE (mc,xn+3)-(mc,xn-3):IF mb>=i THEN mai 
ma2:mb=LOG (yo#-yu#) /LOG(10#)-INT(LOG (yo#-yuk)/LoG(i 
0#)) 

IF SGN(yo#)*SGN(yul)<O AND 10°mb<2 THEN mb=mb+1 

IF yo#-yu#-INT(yo#-yu#}<(yo#-yu#)/50 THEN 
mb=CINT(10“”mb) ELSE mb=INT(10"mb) 
ma#=10*CINT(LOG( (yo#-yu#) /mb) /LOG(10#)-.1) 

i=mb+1 

ma3:i=i-1:IF i<O THEN xk=yn:yk=xn:GOSUB 
kreuz:RETURN 

me=185-(INT(yu#/ma#+SGN (yut/ma#-INT(yu#/ma#)))*maf+ 
itma#-yut)/(yo#-yuf) 184 

IF ABS(mc-xn)<2 THEN ma3 
LINE(yn+5,mc)-(yn-5,mc):GOTO ma3 

zeichnen2: 

WINDOW CLOSE 9:i=201:f=1 

BREAK ON:ON BREAK GOSUB brk 

£1:i=i+1:xt=xußr (xo#-xuf)*li-202) /414 

Fr ee a a Are 3 dr 
FOR i=i+1 TO 616 

x#=xu#+ (xo#-xzu#)* (i-202) /414 

£10:y#=1+184* (yol-Fiüyälx#))/(yo#-yuß):IF £f=-2 THEN 
PSET(i,y#) ,‚2:£=-1 

IF mo=1 THEN LINE-(i,y#).2 ELSE PSET(i,y#),2 
£O:NEXT 

GOSUB brk 

brk:BREAK OFF:£=0:GOSUB funktioni1:RETURN maus 


parameter: 
OBJECT.OFF 1 
WINDOW 2,"Parametereingabe", (100,36) -1(517,186),0 
pl:INPUT"Untere X-Grenze";xu# 
INPUT"Obere X-Grenze";xo# 
IF xu#>=xo# THEN 
PRINT"Die obere Grenze muß größer sein als die 
untere!":GOTO pi 
END IF 
p2:INPUT"Untere Y-Grenze";yu# 


Januar/88 UM 41 


>» 


Ei ne hd" Fin ai A SHE .) Berne See 


"+ u ELBE. 


FTD 


139 INPUT"Obere Y-Grenze";yo# 828 212 


140 IF yuf>=yo# THEN 197 a. BEREIT . 
141 PRINT"Die obere Grenze muß größer sein als die 214 PRINT SPACES (24) 361 
untere!":GOTO p2 556 215 LOCATE 22.1 410 
10: rmmon cal 3 598 BED AR TAKE Sum > 
144 GOSUB menue 528 217 IF xu#>0 THEN PRINT"x:"LEFTS(STRS(xu#) ,24):G0T0O kri 031 
145 OBJECT.ON 1 275 218 IF xo#<0O THEN PRINT"x:"LEFTS(STR$S(xo#) ,24):GOTO kri 537 
146 GoTo Bas 422 219 PRINT"x: 0":GOTO kri 229 
220 END IF 387 
ER = 221 PRINT"X:"LEFTSSTRS (xuß+(xoß-xuß) * (xk-202)/414) ,24) 280 
= 222 kri:PRINT SPACE$(24);:LOCATE 23,1 199 
149 IF £f=1 THEN RESUME £f1 768 323 IF yk-xn THEN 354 
< -2: re 
= = nn Eee + 224 3700 THEN PRINT"y:"LEFT$ (STR$ (yu#) ‚24) ; :GOTO si 
332 x 987 225 IF yo#<O THEN PRINT"y:"LEFTS(STR$(yo#) ,24) ;:G0TO 
153 eingabe: 812 kr2 852 
154 OBJECT.OFF 1 245 226 PRINT"y: 0"; 819 
155 WINDOW 2,"Funktionseingabe", (0,0)-(631,80),16 791 227 G0To kr2 t 327 
156 eingabes:CLs 128 228 END IE d61 
201 ZERINE Bingabe in Basic-Syntax: | 22“ 229 PRINT"y:"LEFTS(STRS (yuß+(yob-yuß)*(185-yk)/184) ‚24) 
158 PRINT 063 a 416 
159 PRINT "£(x)="; 567 Ne 
160 LINE INPUT;£S 676 a) ERRATUE . 
228 en = 232 kurvendiskussion: 694 
> “u 
163 IF f$="" THEN eingabes 046 23 Er a 28 
164 PRINT:PRINT = 335 WINDOR" 
165 PRINT"Bitte 4-5 Sekunden warten !!!" 4 5 “ ef 
166 eingabeß:i-i+1 250 R Kurvendiskussion", (0,0)-(631,186) ,1 Pe 
167 IF MIDS(£u$,i,1)="x" THEN 337 
168 IF UCASES(MIDS(" "+£u$,i,1))«>"E" THEN 787 re N Sen Eee i 
169 IF UCASES(MIDS(" "+£u$,i,1))c>"I" THEN 905 238 = 718 
170 £u$=LEFTS (£u$,i)+"#"+RIGCHT$ (£u$,LEN(£u$)-i) = 339 DEF FN ylflx#)=(EN yElzk+.00001)-FN 
ee 2 y#x#))/.00001 205 
173 END IF 883 240 DEF FN y2#lx#)=(FN yitlxf+.00001)-FN Pe 
N N G 3 .00001 2 
174 IF icLEN(£u$) THEN eingabe® 620 ZIERL)Z 3a 
175 OPEN"ram:£” FOR OUTPUT AS#1 654 241 A abIRpt O2ayaı 7, 
176 PRINT#1,"£9:de£f £ny#(x#)="+fu$+":return 233 242 deli j 352 
177 CLOSE#1 671 343 352 
178 CHAIN MERGE"ram:f",7,ALL,DELETE £9 044 244 £l#=0 254 
9 7 :ONTERROR 6020 Zehler 207 245 iuf=xuf :BEM untere Grenze des 
180 WINDOW CLOSE 2 523 Intarvalls 042 
Ye RER i m 246 iof=xof :REM obere Grenze des 
183 GOSUB funktion 996 EBSRENSITR + SH 
bene 247 flaeche#=0 :REM Fläche unter dem 
184 GOSUB £9 187 Graphen 156 
aa: GOTO maus PS 248 integ#=0 :REM Integral der Funktion 589 
ae 249 dd=0 030 
2, er ae 250 GOTO hauptprogram 725 
1 IF £$= N MAUS 251 parametermaske: 113 
189 IF a=4 THEN OBJECT.OFF 1:GOSUB menue:OBJECT.ON 1 950 252 CLS 559 
ee > 253 PRINT"Funktion ...: y="; 359 
“ 254 PRINT £$ 802 
192 modus: 803 355 PRINT 223 
ee .. 256 _ diuß=cLlG(iuß*1000)/1000 010 
195 PRINT CHRS (46+mox78) 688 257 {of#=CLNG (i0#*1000) /1000 773 
196 GOTO maus 423 258 PRINT"Parameter des Intervalls .. 239 
259 PRIUE "ae nennen " 525 
1 funktion: ‘ 260 PRINT"Untere Grenze des Intervalls ...: "; iuf ; 
$ :PRINT 726 
199 IF mg=1 THEN RETURN 637 261 PRINT 347 
200 mg=1:mp=mp XOR 1 868 & RERR “ 
201 funktionl:IF mp=0 THEN WINDOW CLOSE 9:RETURN 422 262 EIER FREE OR BEREREETTNN T RT 
202 IF £$="" THEN mp=0:RETURN 619 B63 Re ET ZE AER 168 
203 IF LEN(£$)+5>78 THEN i=79 ELSE i=LEN(£$)+5 131 364 PRINT 677 
204 WINDOW m 
9 ,"Funktion", (0,0)-(i*8-1, (14 (LEN(£$)+4)\79) 8) ‚16 450 265 et das Intervall geändert werden ? Pr 
ge PENETERR = 266 ta: aS=INKEYS : IF aSc>"j" AND a$c>"n" THEN ta 613 
3 267 IF a$= "j" THEN GOTO intervall 849 
207 WINDOW OUTPUT 1 7ıı 58 PRINT 034 
Ban FREUEN = 269 PRINT "Soll die Fläche unter dem Graphen 
210 kreuz: 618 berechnet werden ? (J/N)" 182 
211 OBJECT.X 1,xk-12 551 210 tu: aS=INREYS 972 
& ai 271 IF a$<c>"j* AND a$<>"n" THEN tu 923 
272 IF a$="j" THEN be=0 ELSE be=1 779 
273 cLs 489 
274 RETURN 185 
275 185 
276 intervall: 244 
277 PRINT 553 
278 INPUT"Untere Grenze ....... ";iu# 229 
279 PRINT 718 
280 INPUT"Obere Grenze ........ ";iof 024 
281 IF CLNG(io#*1000)/1000 <= CLNG(iu#*1000)/1000 
THEN iuf=xuf : iof=xof 549 
282 549 
283 GOTO parametermaske 400 
234 400 
285 kurvenmaske: 930 
286 PRINT"Funktion ...: y="; 506 
2837 PRINT £$ 557 
288 PRINT 502 
2839 PRINT"Kurvendiskussion im Intervall von 
";iuß;:PRINT " bis ";iof;" ." 895 
290 PRINT 192 
291 xm#=0 909 
292 d£=0 7ı2 
293 test#=FN y#(0) 493 
294 IF spr=1 THEN kk 856 
295 IF xm# <iu# OR_xm# >ioll THEN kk 639 
296 IF xaf =luff AND dd<>0 THEN kk 245 
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PRINT"Der Schnittpunkt mit der y-Achse liegt bei 


KIEch 
PRINT CLNG(FN y#{0)*1000)/1000; 
PRINT") ." 
PRINT "Die Steigung beträgt ...: "; 
PRINT CLNG{FN yi#(0)*1000)/1000 


spr=0 : iat=iu# :df=1 
RETURN 


integral: £fi#=1 


n2: 


IF be=1 THEN RETURN 

IF spr=1 AND sp=1 THEN RETURN 

IF spr=1 AND sp=0 THEN ia#=1n? 
in#=xm# 

integr#=0 : aof=0 : £fl=1 

FOR i= 1 TO 2000 

aot=aoc#+ Fi yHliaft+(int#-ia#)/2000*i) 
NEXT i 

ao#=(in#-iaf)/2000raoc# 

wiä#=FN y#liat) : w2t=FN y#lint) 


dat= (in#-ia#) /2000* (w24-wiR) 


aut=aoft-daf# 

integri#= (ao#+au#) /2 

£flaecheft=flaechef#+ABS (integr#) 
integ#=integ#+intagrf# 

PRINT "Das Integral von ";CLNG (ia#*1000)/1000;" 
bis "; 

PRINT CLNG (in#*1000)/1000;" beträgt "; 
CLNGlintegr#*1000)/1000 ; 

PRINT N 7,8." 

iafs=inf 


RETURN 


hauptprogram: 


CLS 

GOSUB parametermaske 
GOSUB kurvenmaske 
GOTO np 


warten: WINDOW 2 


mp: 


schachtelung: 


PRINT 
PRINT 
PRINT "[27SPACES]Weiter mit "Space’ 
wa: a$=INKEYS : IF a$ <> " " THEN wa 
GOSUB brk2 
brk2: BREAK OFF 
ON ERROR GOTO fehler 
WINDOW CLOSE 2 
OBJECT.ON 1 
WINDOW 9 
WINDOW OUTPUT 1 
RETURN maus 


PRINT 

PRINT"Nullstellen:" 

PRINT"=as==========" 

zz=1 : nil=0 :sp=0 :gg=0:qgq=0: n$="Nullstellen" 

GOSUB schachtelung 

IF £1#=0 OR in#tioc# THEN xmä=iof : GOSUB 
integral 

IF ni=0 THEN GOSUB nu 

IF az>0 AND gg=0 THEN GOSUB wei 

IF qq>0 THEN jj=1:g9g9=1 

GOSUB taste 


PRINT :PRINT"Extrempunkte:" 
PRINT"=========202===" 

zz=2 : n2=0 :gg=0: n$="Extrempunkte" 

GOSUB schachtelung 

IF n2=0 THEN GOSUB nu 

IF az>0 AND gg=0 THEN GOSUB wei 

IF qq>O THEN jjel:gg=1 

GOSUB taste 


PRINT :PRINT"Wendepunkte:"” : PRINT"=======22222" 


zz=3 : n3=0 :gg=0: n$="Wendepunkte” 

GOSUB schachtelung 

IF n3=0 THEN GOSUB nu 

IF az>0 AND gg=0 THEN GOSUB wei 

IF qg>0 THEN jj=1:g9g=1 

IF jj=1 AND spr=1 AND gg=0 THEN jj=0 :GOSUB wei 
IF be<>1 THEN GOSUB taste ELSE warten 

IF spr=1 THEN 

PRINT:PRINT "Flächenberechnung wegen 
Definitionsicke nicht möglich !!!" 

GOTO warten 

END IF 

PRINT 

PRINT"Die Fläche unter dem Graphen beträgt "; 
PRINT CLNG (£flaeche#*1000)/1000; " F.E." 
PRINT 

PRINT"Das Integral der Funktion beträgt "; 
PRINT CLNG (integ#*1000)/1000; " F.E.” 


GOTO warten 
IF qq=0 THEN jj=0 ELSE jj=1 


at=iuf-1 : b#=iuf 
g#=9.999999999999999D-10 


245 


111 
024 
736 
556 
091 
323 
164 
012 
012 
447 
666 
433 
626 
033 
950 
241 
333 
477 
512 
580 
230 
752 
574 
371 
471 


765 


759 
101 
341 
341 
036 
036 
628 
518 
328 
396 
254 
254 
195 
628 
449 
203 
824 
341 
872 
586 
614 
201 
050 
508 
546 
546 
070 
531 
740 
979 
884 


922 
131 
713 
791 
744 
744 


558 
206 
511 
437 
859 
281 
826 
826 
277 
473 
746 
253 
451 
089 
461 
364 
841 


206 
400 
766 
971 
004 
006 
971 
494 
227 
227 
257 
257 
121 
570 
8831 


393 n#=.1 390 
394 s0O: IF CSRLIN>19 THEN GOSUB taste 625 
395 IF CLNG(b#*1000)/1000 >io# THEN RETURN 165 
396 b#=b#+n# : xm#=b# 048 
397 pp=0 409 
398 ON zz GOSUB s1,52,53 069 
399 IF pp=0 AND az>0 THEN GOSUB wei 809 
400 GOoTO s4 745 
401 745 
402 si: vif= FN y#lat) : v2l= FN y#(b#) : RETURN 929 
403 s2: vi#= FN yl#lal) : v2#= FN yl#(b#) : RETURN 400 
404 s3: vi#= FN y2hlaf) : v2#= FN y2#(b#) : RETURN 050 
405 050 
406 s4: IF vi#<O THEN v1S="-" ELSE vi$="+" 040 
407 IF v2#<0 THEN v2$="-" ELSE v2$="+" 292 
408 IF v1$=v2$ THEN sO 585 
409 585 
410 s5: xmt=(at+b#)/2 046 
411 046 
412 ON zz GOSUB £f£1,f£f2,££f3 745 
413 GOTO s8 429 
414 ££1: smä=FN yhlxak) : RETURN 781 
415 ££2: ymä=FN yılllzmf) : RETURN 671 
416 ££3: ymii=FN y2llım#) : RETURN 631 
417 631 
418 38: ON zz GOTO il1,i2,i3 939 
419 939 


420 il: IF ymt*FN y#l(a#)<O THEN bi=xmi :GOTO s7 :ELSE s9 075 
421 i2: IF ym#*FN yitla#t)<o THEN bii=xm# :GOTO s7 :ELSE 


sg 733 
422 i3: IF ym#*FN y2#(a#)<O THEN bä=xn# :GOTO s7 :ELSE 
sg 665 
423 665 
424 s9: ON zz GOTO i4,i5,i6 31: 
42 311 
426 i4: IF ym#*FN y#lb#)<O THEN at=xmi :GOTO s7 :ELSE 
sı10 750 
427 i5: IF ym#*FN yl#(b#)<O THEN af=xm# :GOTO s7 :ELSE £ 
sı10 691 
428 i6: IF ymi*FN y2#(b#)<O THEN aft=xmi :GOTO s7 :ELSE 
sı10 858 
429 858 
430 s10: IF CLNG(zm#"1000)/1000 <iu# THEN afl=iuf : 
b#=a# : GOTO sO 167 
431 IF CLNG (xm#*1000)/1000 >io# THEN RETURN 738 
432 pp=0 643 
433 test#=CLNG(FN y#(xm#) *1000)/1000 816 
434 test#=CLNG(FN yl#lxm#) *1000)/1000 022 
435 test#=CLNG(FN yldlzml) *1000) /1000 684 
436 IF pp=0 AND az>0 THEN GOSUB wei 028 
437 ON zz GOSUB ausl,aus2,aus3 078 
438 af=b# 008 
439 GOTO sd 016 
440 016 
441 57: IF ABS(af-bfi)>g# THEN s5 ELSE xmit=(al+b#)/2 : 
GOTO si10 354 
442 354 
443 ausi: IF sp=1 THEN Inf#texm# 595 
444 IF CLNG (xm#*1000)/1000=1u# AND dd<>0 THEN 
RETURN 783 
445 PRINT "Nullstelle bei...: 
(";CLNG(xm#*1000)/1000;"1 0 )"; 662 
446 PRINT TAB(60)"Steigung...: ";CLNGI{FN 
yı# (xm#) *1000)/1000 680 
447 GOSUB integral 706 
448 ni=ni+1 :sp=0 147 
449 RETURN 427 
450 ; 427 
451 aus2: IF CLNG(xm#*1000)/1000=1u# AND dd<>0 THEN 
RETURN 148 
452 „IF EN y2#(xm#)<O THEN PRINT "Hochpunkt 
REN 719 
453 IF FN y2#{xm#)}>0 THEN PRINT "Tiefpunkt 
185... uk 750 
454 PRINT CLNG (xm#*1000) /1000; 350 
455 PRINT" I";CLNGIFN y#lxm#) *1000)/1000;")" 571 
456 n2=n2+1 228 
457 RETURN 564 
458 564 
459 aus3: IF CLNG(xm#*1000)/1000=1u# AND dd<>0 THEN 
RETURN 446 
450 IF CLNG(FN yi#(xm#) +*10000)/10000=0 THEN 
weS="Sattel” ELSE we$="Wende"” 442 
461 IF FN y3fixm#)>0 THEN ri$="Rechts-Links-" 218 
462 IF EN y3#(xm#)<o THEN ri$="Links-Rechts-" 384 
463 n3=n3+1 315 
454 PRINT riS ; we$ ; "punkt bei...: 
(":CLNG (xm#*1000&) /1000&; "1"; 760 
465 PRINT CLNG(FN y#(xm#) *1000)/1000;")"; 497 
466 IF we$="Sattel”" THEN PRINT : RETURN 140 
467 PRINT TAB(60)"Steigung...: ";CLNG(FN 
yı#(xm#) *1000) /1000 966 
468 RETURN 902 
469 902 
470 taste: WINDOW 2 7199 
471 PRINT 456 
472 PRINT "Bitte 'Space' drcken I!!!" 133 
473 tas: a$=INKEY$ 965 
474 IF a$<>" "THEN tas 146 
475 CLS 380 
476 PRINT"Funrktion ...: y="; 404 
477 PRINT £$ 239 


Er DE a a a iu 


478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 


439 
490 
491 
492 
493 


494 
495 
Ei 496 
BE 49 
Zu ass 
Bi a9 


500 
501 
502 


kfehler 


nu: 
RETURN 


wei: 


PRINT 454 
RETURN 481 
481 

» WINDOW OUTPUT 2 940 
spr=1 : sp=i TO alt#+iw STEP sw 133 
IF df=0 THEN spr=1 : RESUME NEXT 206 est#=FN y#liß) 916 
xm#=CLNG (xm#*1000) /1000 807 THEN alt#=i#+s" 636 
IF az=0 AND dd <>0 THEN alt#=xn# :az=1 27 019 
neuf=xm# :pp=1 354 TO neuf+iw STEP sw 298 
IF xm# <iu# OR xmi >io# THEN RESUME NEXT 183 y#(iß®) 041 
IF xm# =lu# AND dd<>0O THEN b#=xm#+n#: neuf=i# 052 
af=xn# :RESUME NEXT 234 307 
lu#= xm# :a#=b# 651 307 
dd=1 341 307 
RESUME NEXT 389 Gtalt#*1000) /1000 166 
389 u#*1000)/1000 577 

PRINT "Kei ";n$;" vorhanden !" jj=1 alt#=iu# 170 
759 reuf=io# 379 

759 zu# 375 

ON ERROR GOTO ufehler 837 375 
IF jj=1 THEN weil 915 oO kfehler 794 

I Definitionsicke bei....: 3 424 802 
aq=qq+l 609 802 
IF neuf=alt# THEN PRINT alt#; : gg=1 :PRINT 802 
:GoTOo weil 941 72 738 
sws,1 i GOSUB wei2 737 £fehl=1 :RESUME NEXT 857 
sw=.01 GOSUB wei2 694 857 
sw=.001 GOSUB wei2 575 #°4+.5*x#”3:RETURN 565 


BASIC-Listing Proplot: 


2 \ 
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ED 
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TE 
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EV SEEN 


Eingabe ohne Zeilennummern und Checksumme. 


CIM-WIE DIE DATEN 
SHAKEHANDS LERNEN 


Die Computer integrierende Fertigung ist 
das Schlagwort der Stunde: Denn die Forde- 
rung nach schneller Verfügbarkeit von Füh- 
rungsinformationen, niedrigen Werkstatt- 
beständen, hoher Flexibilität und kurzen 
Durchlaufzeiten in der Produktion, ist nur 
durch EDV-Einsatz lösbar. Dabei genügt es 
aber nicht, Inseln zu automatisieren oder 
bloß unter dem Aspekt einer komfortablen 
3D-Konstruktion einen CAD-Bereich zu op- 
timieren. Für CIM müssen die Daten und 
Informationen Shakehands lernen. 


Vorname 


Postleitzahl/Ort 


Unterschrift 


In der Reihe „Computergestütztes Produ 
tionsmanagement“ und in den Titeln Inv 
stitionsentscheidungsprozeß für numeris 
gesteuerte Fertigungssysteme sowie Pl 
nung und Steuerung der Produktion & 
betriebswirtschaftlich-technologischer 
Sicht werden nicht nur Grundlagen d 
CIM gelegt sondern erfolgreich praktizie 
te Beispiele dargestellt. Diese Titel berüc 
sichtigen die aktuelle EDV-Entwicklu 
genauso, wie Anforderungen und Kons 
quenzen aus der Logistik. 


We 
asım 
nu. 

Qu 


Fachbücher für die Computerw 


Expl.Best.Nr.: 
Expl.Best.Nr.: 
Expl.Best.Nr.: 
Expl.Best.Nr.: 


un en VEIBEBBIENG u u ehe 
U] Bitte senden Sie mir Ihr Bücherverzeicht 


alileo ist das be- 
ste Astronomie- 
programm, das je 
für einen Heim- 
computer geschrieben wur- 
de. Es nutzt die graphischen 
und mathematischen Mög- 
lichkeiten des Amiga voll 
aus. 


Der Nachthimmel an jedem 
Ort der Erde, zu jeder belie- 
bigen Zeit innerhalb der 
nächsten 400 Jahre läßt sich 
mit Galileo auf den Amiga- 
Bildschirm zaubern. Natür- 
lich kann solch ein Pro- 
gramm nicht die üblichen 
Werkzeuge zur Betrachtung 
des Himmels, wie zum Bei- 
spiel Fernrohre, ersetzen. Es 
besitzt jedoch einen hohen 
didaktischen Wert und ver- 
mittelt einiges, was über das 


Betrachten des Himmels 
hinausgeht. 
Diffuse Nebel 


exakt berechnen 


Das Programm ist menüge- 
steuert, es kann einen Lage- 
plan von 1600 Sternen, Pla- 
neten und weiter entfernten 
Objekten wie Galaxien, dif- 
fusae nebulae etc. zeichnen, 
in Äquatorialkoordinaten 
oder in einem lokalen Höhe- 
Richtungs-Koordinatennetz. 


Man gibt Längengrad, Brei- 
tengrad und Zeit ein, und 
Galileo zeigt die wichtigen 
Himmelskörper im Blick- 
feld. 


Im Vergleich zu anderen 
Grafikprogrammen auf dem 
Amiga ist die Zeichenfunk- 
tion zwar langsam, für ein 
Astronomieprogramm aber 
doch überraschend schnell, 
da ja während des Zeichen- 
vorgangs eine Reihe von 
komplexen Berechnungen 
notwendig sind. 


Galileo weist einige beson- 
dere Eigenschaften auf. So 
lassen sich die Bahnen der 
Planeten gegenüber den 


v/ | SOFTWARE 


GALILEO 


DIGITALER STERNENFORSCHER 


Mit einem Astronomie-Programm aus den USA läßt sich 
auf dem Amiga der Sternenhimmel von jedem Fleck der Erde 
bis zu 400 Jahre im voraus berechnen. 


Sternen darstellen, oder auf 
Wunsch die Namen der Pla- 
neten, der auffälligen Ster- 
ne, der Sternbilder, der Mes- 
sierobjekte und einiger 
NGCs (New General Cata- 
logs) anzeigen. Es zeichnet 
auf Wunsch die Umrisse der 
Sternbilder, so daß man sie 
am wirklichen Nachthimmel 
wiedererkennen kann. 
Weitere Menüpunkte suchen 
nach bestimmten Planeten 
und Sternbildern oder zei- 
gen Vergrößerungen der 
Planeten. 


WERE EI O MIETEN SBAERENIRGORELAN 


GALILEO) 


Die What’s Up-Funktion 
gibt Auskunft über den 
Stand der Planeten am Mor- 
gen- und am Abendhimmel 
am jeweiligen Ort. Die viel- 
fältigen Details von Galileo 
sind beeindruckend, aber 
ein astronomisches Fach- 
buch oder einen Atlas der 
Sternenkunde wird der Ster- 
nenfreund dennoch benöti- 
gen. Ein gutes Buch enthält 
mehr Informationen und ist 
außerdem tragbar (Wer 
möchte schon zusätzlich 
zum Teleskop auch noch ei- 


Galileo wird Sternenfans begeistern, jedoch die sinnliche Erfahrung nicht ersetzen. 


nen Amiga auf die Nacht- 
wanderung mitnehmen?). 
Galileo ist sinnvoll, um das 
äquatoriale Koordinatensy- 
stem kennenzulernen und 
die Position von Sternen zu 
einer festgelegten Zeit zu be- 
stimmen, zur Beobachtung 
ist es weniger geeignet. Wer 
aber eher etwas lernen 
möchte, ist mit Galileo gut 
bedient. 

(awo) 


Infinity Software Ltd. 
Emeryville 
USA 
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dBASE 
EFFEKTIV EINSETZEN 
NÜTZLICHE PROGRAMME 
ZUM ABTIPPEN 
ALSO-PC-NET: 
4 NETZWERK UNTER 
100MrK 74» 


€ SPIELE: 
FÜNF FLUGSIMULATOREN 


2 
Re 
BB 


RAFI-BTX-MODUL 
SIDEKICK PLUS, BECKERBASE, 
PORTABLES: NEC MULTISPEED 

GEGEN TOSHIBA 1000 PLUS 


- 


er Checker für den 
Plus/4 und den C16 ist 


Celsius 


mit Basic-Kopf, welches automatisch 
auf Diskette gespeichert wird. Zur Ab- 


PS 
8 


CHEGKER FÜR GIB PLUSA 


data Sd,13,f0,e8,ca,10,f8,30,87, 
a2,0d,a85,ca,dd,S5d 24976 
data 13,d80,08,20,08,fb,ee,33,13, 


data Bd,4f,0c,28,04,df,a9,15,8d, 


B x R r 2 d®,ef,b8,03,ca,1® 34141 
als Erweiterung des inte- speicherung auf Band muß in Zeile 17 120 aeie un a0 ag eu no au. au. ee 
grierten TEDMON-Ma- der Wert der Geräteadresse entspr- sh et 
schinensprachmonitors konzipiert: Er chend geändert werden. Er  Erer ee e 
ergänzt diesen um einen Printmodus EM 138 ern Ende 
; © De 2 ap 7 FEN? r d,94,13,20,10,66 — 33458 
zur schnellen und sicheren Programm Ä en ae a 120 data a9,29,4c,d2,FFf,a2,02,20,30, 
eingabe beziehungsweise zur Umlei- B il rem tedmon-checker plus/4, cI6 ba, d0,04,22,03,a0,05 j4126 
SufdenD ker 2 ‚ ell6 (basic-lader) = 140 data a3,26,85,78,86,7f,a2,08,20, 
tung au n Drucker. E 121m ---------- 5 4,b8,a2,00,85,88 13326 
Die Pro rammbedienung PR 5 ET TEE Be ıuı data 60, dc,6B.Be.20,r8,07,10,09. 
R ‚ Ze 78,8d,3F,ff,a0,28 3% 
g . . . . = 14 rem >>> Falls c16, speicher begre = 142 data Bis hl aisaa Paar 
Der Checker wird wie ein Basic-Pro- | ” nzen = cB,18,71,21,38,03 34101 
R ©  1Sif peek (1332><>253 tn, ke 55, EB ı13d ‚94,13,c8,c0,07,90,ef,2o, 
gramm geladen mit DLOAD... — Fi ae SEN er Tassi = en = 14297 
ß . Mo 15: 144 data S4,13,8d,3e,ff,58,60,38,F1, 
oder LOAD . . bei Kassettenbetrieb | 17 speicher-8:rem >>> Floppy, (tape: ei 1 14545 
. Na) her=1) <<< 119043 = 145 data 60,20,d8,fb,1b,4e,0e,08,12, 
und mit RUN gestartet. 0, & Er aa 
ER - 18 cam -—— nn _-_____ u 146 data 3a,20,0f,40,55,48,20,cB,4s, 
Folgende Modi mit den Kine ge A er BI ne! Be 
. 99 rem daten: = 147 data 53,45,4e,20,20,20,28,c3,28, 
Befehlen stehen zur Auswahl: * a, en 
TEDMON-Modus FE 181 data 2b,10,00,00,9e,34,32,33,35, = 148 data 39,38,37,04,00,49,6d,8d,28, 
Ss Beni 00,00.00,00,00,00 33837 E) ©c,2@,19,13,29,7d 34371 
— alle zulässigen TEDMON Befehle. © 102 data 20,d8,Fb,@d,31,16,51,50,52, 140 0a » 


Check-Modus 
£bm/1 — Aktivierung beziehungswei- 
neue Checkadresse 


t-Modus 


‚Monitorbefehle (zum Beispiel „M“ 
zum Ausdruck eines Hex-Listings). 


49,42,54,32,20,08 
103 data 20,e7,Ff,a9,04,85,99,85,ae, 
20,b1,ff,a9,67,208 
104 data S3,Ff,a2,00,86,F3,20,e8,eb, 
4c,S9f,f4,b8,2e,28 
105 data Sb,Fb,a0,00,20,ad,Ffa,b®,24, 


03,a9,41,a2,11,8d 
data 24,03,8e8,25,03,39,71,8d,15, 
ff,a9,de,8d,19,ff 
113 data 8d,3b,05,a9,c0,8d,f8,07,85, 
9a,20,36,12,4c,398 
114 data f4,39,00,8d,eb,07,24,9a,70, 
03,40 ,42,ce,28,bf 


- » » he - Ce 
ts A | 
nm [2 [> w } S 


S 


a 


PRERHE 


4 
& 


158 


94,13,39,5d4,84,28 234384 
data 0c,8d,4f,0c,20,04,df,ce,34, 
13,10,f0,a9,790,8d 34239 
data 28,0c,20,19,13,39,6e,8d,4F, 
®c,a2,27,bd,6b,13 24499 
data Sd,20,8c,ca,180,F7,39,022,a2, 


3 : a5,f1,91,21,c8,c® 14988 fx 01,20,51,de,a9,8® 13547 
RETURN Abschluß der Eingabe 106 data 08,98,F2,20,5d,12,20,ad,fa, = 153 data 85,a5,85,55,30,Fc,20,46,12, 

iR i = b8,18,a5,fl,cd,34 34273 5 4c,8b,d8,a2,25,a5 34153 
DEL Entfernen fehlerhafter Einga data 13,F0,09,20,4®,12,ce,93,13, = 154 data 42,9d,29,8c,ca,10,fa,60,c9, 

ben. 4c,68,11,20,46,12 24254 Er 36,d8,14,ad,f8,07 J4556 
data 20,d8,Fb,2d,91,00,20,03,12, FF 1s$S data 43,FF,8d,f8,07,30,03,a9,cf, 

STOP — Verlassen des Check-Modus 292,d8,Fb,@d,12,3e 13634 x 2c,a3,c1,8d,25,®c 14230 
i Z R data 92,00,29,08,20,96,Fb,20,Fb, © 156 data c6,ef,50,85,f2,c9,13,90,0d, 

09, af — Eingabe der. hexadezi- fa,a2,06,88,93,13 14208 Ri d0,0F ‚a5,f1,c9,97 14406 
data 4c,6e,11,a9,c5,a2,10,78,8d, =) 157 data b8,09,68,68,40,92,F4,c9,0f, 

alen Werte 12,03,8e,13,03,58 14245 = » b8,f7,18,60,01,81 14532 
data a9,28,a2,11,8d,22,03,8e,23, © 158 data 95,5c,11,1@,10,26,07,08,0b, 


®e,11,14,17,1a,1d 34474 
data 20,21,22,23,80,d4,c5,c4H,cd, 
cf,ce,ad,c3,c8,c5 34112 
data c3,cb,c5,d2,38,30,20,a0,a0, 
a0,20,80,a4,b8,b0 13594 
data b®,b0,ad,a4,c6,c3,c6,c6,ba, 
a8,d2,c1,cd,a8,08 13823 


! org ji 115 data cf,20,cd,ce,a5,fb,4B,85,fb, 162 
pgrammeingabe mit dem 08,58,208,11,db,ae 13853 163 rem ---------------- --- - 
6-Checker 116 data S6,13,dd,57,13,F0,09,ca,1®, 
- 2 F8,20,24,13,4c,54 14373 
Sind acht Programmbytes korrekt ein- 117 data cn,8a,02,84,95,13,c6,0,00, MU |, 77727772227 
68,85, fb,aa,9d,d® 13563 164 rem daten einlesen: 


nd weitere Eingaben sind bis zur Be- 


der Satuszeile angezeigt. 
Abtipphinweise 

Zum Abtippen des Checkers kann der 
C16 Korrektor zur sicheren Pro- 
grammeingabe benutzt werden. Das 
Programm liegt als Basic-Lader vor 
nd erzeugt ein Maschinenprogramm 


c9,31,d®8,0c,88,6B 
123 data c9,f5,d0,04,39,12,20,0d,48, 


123 data b1,c8,c9,07,b8,02,89,40,99, 
£ff,01,88,40,f2,a9 34618 

13@ data 01,a2,25,85,F3,86,f4,a9,10, 
48,89,39,48,20,ad J4616 

131 data fa,4c,3d,13,28,30,de,4c,S8, 
f4,ad,93,13,c9,99 14785 

132 data 9S0,9d,39,14,20,d2,ff,ce,33, 
« 13,a2,04,85,ca,dd 34788 


| ff,ee,93,13,ad,33 


2 
5 
| 
= 
[ 
3 
i 
2 
H 


geben (mit der dazugehörigen 118 data fd,a9,a1,8d,0b,FFf,ba,eB,e8, 165 : 
— & = eB,e8,e8,ac,35,13 4158 166 color ®,1:color 4,1:color 1,2: 
hecksumme), so ertönt ein kurzes Si- 118 data b9,5a,13,34,08,01,ca,b9,53, a, er 12073 
. ‘ . r 3,9d4,00,01, ‚3 34442 Z 
al, die Zeile wird übernommen und a a ER ra. tr 188 ad-dec ("3001°) J1226 
ie nächste Adresse vorgegeben. Bei RE 178 for dz-1@1 to 181 Jess 
* . . ee a 171 ch ‚12,21,chrs$ (14)+"Datazeile: 
Falscheingabe ertönt ein tiefer Ton a Se ee En 
2 2 R n z k L , z 172 for da=-® to 14 1672 


read a$:poke ad,dec (a$):ad-ad+1 


seitigung des Fehlers blockiert. 38,48,20,c1,Fb,4e 34351 21905 
n gd 5 ei 124 data db,0c,20,20.de,20,cb,de,2®, a er 0a,0E nn 
3elegen Programme den oberen dB,fb,12,38,32,00 33877 175 if sp-1 then char ‚4,23, "Record- 


& Play-Taste druecken!” 34982 


. . . 125 dat 3,01,8d,93,13,20,ea,11,20, 4 Pr ” 
Adreßbereich ab $8000, ist sicherzu- ds,0b FO. Eh 03,28 2 gen 176 color 1,1:cher ‚0,8, "monitor" 
. . F0,4d,c9,14,F0,4F,c9,04,F®, 45 u. j4“ 
tellen, daß dieser Bereich auf RAM- ee en 177 char ‚8,6,"s”+chr$ (34)+"@: 


tedmon-checker”+chr$ (34)+", "+ 


Zugriff geschaltet ist. Die Umschal- an a aan GL a DR ER ERDE strS$ (sp)+", 3001, 3398" 16670 

. . 1768 char ‚8,11,”x” 3842 

zung erfolgt über cbm/3 und wird in 128 data 13,c9,25,90,d3,ee,93,13,ac, 179 char ‚8,13. "gotolß1” 31301 
& 8 33,13,29,3a,d0,08 24747 188 poke 1319,19:for i=-@ to S:poke 


1320+1,13:next :poke 239,7:end 
34979 
color 1,2:scnclr :if peek (174)> 
1 then if ds then print dsS:end 
33074 
if peek (174)>1 then directory 
211886 


"ep" 


Zur sicheren Eingabe kann der Checker mit dem Korrektor eingegeben werden. 
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a ENT ZR Re ac 


EINTIPPEN OHNE FEHLER 


n RUN werden zwei Arten von 
Programmen veröffentlicht: 
BASIC-Programme und Maschi- 
nenprogramme. 
BASIC-Programme werden zur Ver- 
meidung von Tippfehlern am besten 
mit dem Korrektor eingegeben. Nach 
jedem RETURN gibt er eine Prüfsum- 
me aus, die mit der Prüfsumme im 
Listing übereinstimmen muß. 

Die BASIC-Lader zu den Korrektoren 
für den C64 und den C128 stehen auf 
Seite 48. Nach dem Einpoken der Da- 
ten aktivieren sie den Korrektor. An- 
schließend ist NEW einzugeben. Auf 


Wunsch speichern sie den fertigen 
Korrektor auch ab. Er kann dann mit 
LOAD “49152 KORREKTOR“,8/ 
NEW/SYS 49152 für den C64 und mit 
BLOAD “4864KORREKTOR128“/ 
SYS 4864 für den C128 gestartet wer- 
den. Der C64-Korrektor arbeitet auch 
mit Simons’ BASIC. Dazu läßt man 
das erste Komma in Zeile 5000 weg. 
Simons’ BASIC muß vor dem Korrek- 
tor gestartet werden. 

Der BASIC-Lader des Korrektors für 
den C16/116/Plus/4 steht auf Seite 
49. Er verfügt über keine eigene 
SAVE-Routine. Nach RUN kann man 


beim entsprechenden Hinweis den fer- 
tigen Korrektor abspeichern. Noch- 
maliges RUN startet das Programm. 
Steuerzeichen sind bei den BASIC- 
Listings immer in Klartext übersetzt, 
so bedeutet [3LEFT], daß dreimal 
Cursor links gedrückt werden muß. 
Maschinenprogramme können nicht 
direkt eingegeben werden, da sie als 
Hexdump-Listings vorliegen. 

Bei einem Hexdump sind die Zahlen in 
hexadezimaler Form vorhanden. Sie 
werden mit einem speziellen Eingabe- 
programm, dem Checker (Seite 49), 
im Speicher abgelegt. 


190 


restore :for a-=-49152 to 49629: poke 
a,234:next :print "moment! 


E20 f-0:read a:y=peek (63)+peek (84)* 
wr 256:if a=® then 208 
30 read b,c:for d=a to b:read a$:if 


40 


so 


60 


BE 


len (a$)-2 then 90 

e=-asc (a$)-4B-(7 and a$>"E”):if as 
»9” or a$>”g” or a$>"”:" and a$<”a” 
then 98 

a$=-mid$ (a$,2):e=e*l6+asc (a$)-4B- 
(7 and a$S>”"@”) 

if a$<”®0”" or a$>”f” or a$>?”9" and 
a$<”a” then 98 


1007 


data 00,84,28,84,45,84,46,84,09,cB, 
be,ff,01,f0,38,85,88,30,0c,e8,20 


1008 data FO,f2,e0,3a,f0,0c,e0d,8f,f0,28, 


1003 


ed,22,d0,02,49,80,09,01,85,08,Ba 
data a6,09,f0,06,03,63,20,ca,d®,fa, 
18,65,45,85,45,90,02,e6,46,e6,29 


1010 data a5,09,29,07,85,09,10,c2,46,08, 


19011 
1012 


1013 


£f=f+te:poke d,e:next :if f=c then 20 
B® print "pruefsummenfehler: soll”c”, 1999 
ist”f:goto 108 2008 


1%) 
= 100 


print "eingabefehler: "a$:y-® 
z=-peek (63)+peek (64)*256:a$*-str$ 
(y)+str$ (-z):if y=® then a$=str$ 


2001 


99,21,a0,ff,8c,e®d,c1,a2,14,20,b3 
data c1,c8B,a9,bd,89,e2,c1,a9,be,cB, 
9S9,e2,c1,c8,a2,45,28,b9,c1,39,bb 
data S9,e2,c1,4c,a4,a4,84,08,b5,00, 
85,63,b5,01,85,62,a2,90,38,20,43 
data bc,20,df,bd,a4,08,38,c8,bd,00, 
01,F0,08,09,80,99,e2,c1,e8,d8d,f2,68 
rem ein/ausschalter 

data 49152,49186,5131,2d,03,03,c9, 
c8,d80,09,ad,de,cli1,ae,df,c1,4c,27 
data c®,8d,df,c1,ad,02,03,8d,de,cl, 
a9,a0,a2,1f,Sd,e2,ci,ca,18,Fa 


(z) 2999 rem eingabesicherung 
118 print ”"[down]11”a$”[C2up]”; :poke 3002 data 49285, 49322,4626,ad,el,c1,dß, 
198,1:poke 631,13:end 21,8d4,20,d0,8d4,21,d0,a5,da,30,2e 
208 print ”CdownlJfertig.”:print ”[down] 3001 data 09,80,85,da,a0,27,a9,20,39,28, 
soll das maschinenprogramm 04,88,10,fa,86,d6,d0,05,89,11,20, 
abgespeichert 35,eb 
218 input "[LupJwerden[2spaces]j[3left]” 4998 rem ende bzw. simon’s anpassung 
‚aS:if a$<>”j” then 308 4999 rem duch weglassen des 1. kommas: 
220 sus 5S7812”@:49152 korrektor”,B:poke 5200 data ‚49293,49295,702,ea,ea,ea, 
& 193,8:poke 194,192:poke 174,222 
2: 238 poke 175,193:sys 62957: verify x 
= "4S1S2 korrekter”, B.1 Korrektor für den 664, Disk-Version 
308 a$="":input "[downlkorrektor 
aktivieren? j[L3left]”;a$:if a$-"j" 
then sys 43152 
=} 99393 rem hauptprogramm 208 print "[downlfertig.”:print "[down] 
1000 data 49187,49208,2342,a9,ae,a2,c®, soll das maschinenprogramm auf 
8d4,22,03,8e8,023,03,00,a0,1f,b39,e2 kassette 
1001 data c1,39,00,04,88,10,F7 218 input "abgespeichert werden 
: 12002 data 49323,49387,9136,4c,31,ea,78, [2spaces]j[3left]";a$:if a$c>"j" 
= a9,2e,a2,c0,8d,14,03,8e,15,903,58 then 308 
= 1003 data a9,00,8d,e1,c1,20,60,35,8c,el, 220 sys 57812”43152 korrektor”,1,1:poke 
= c1,86,7a,84,7b,ac,e®d,c1,f0,13,a08 193,8:poke 194,192:poke 174,222 
1804 data 18,b9,e1,c1,39,f1,c1,a9,a0,S9, 230 poke 175,193:sys 62957:print "bitte 
== el,c1,88,d80,f2,8c,e8,c1,20,73,08 die kassette zurueckspulen und 
= 1005 data aa,f0,d3,88,84,33,30,55 248 input "return druecken”;a$:verify 
Z 1006 data 49467,49629,19950,4c,96,a4,“4c, "49152 korrektor”,1 


9: 


08,af,208,6b,a9,20,73,35,84,0b,a® 


Januar/88 
ir 


Korrektor für den C64: Anpassungen für Datasette 


558 if p<>val (a$) then print 
"pruefsummenfehler!":end 

SED a--1 

578 next :if a>® then 540 


das maschinenprogramm 
abgespeichert 


”3” then 618 


to p5173:print ds$ 


588 print "Ffertig.”:print ”"[down]soll 


538 print "werden?”:get key a$:if a$<> 


608 bsave "4B64korrektor128”,bB, p4B64 


:end 


(a$):next 


188 trap 649:bank ®:restore :print 618 print "[down]lsoll der korrektor 
"moment... gestartet”:print "werden? 

118 data 1300,393,00,8d,00,ff,ad,902,236 { E = nn 

120 data 03,ae,03,03,c9,67,d0,0c,e®,8b5 abe nF a ni 

130 data 13,d0,08,ad,35,14,ae,36,14,d96 | 638 end 

140 data b8,14,8d,35,14,8e,36,14,20,383 648 if er=14 then resume 480:else if er 

150 data A i =30 then resume 668 

168 data a9,67,a2,13,8d4,02,03,Be,83,9b no EM = 

170 data 03,4c,53,fa,d8,20,24,c0,08,3la ee 

188 data a0,27,b9,37,14,99,c0,07,88,d27 4 668 trap :stop 

198 data 19,F7,a5,d7,30,17,89,18,c5,39cc ö 

2008 data eb,f®,06,c5,e4,d0,02,c6,e4,388 

218 data c5,e5,d8,02,c6,e5,a9,20,8d,a39 

220 data 61,03,28,4c,69,fa,78,a2,13,2f1 

230 data 8e,15,03,a2,38,8e,14,03,58,7f7 

240 data a2,ff,86,3c,280,33,4f,86,3d,dia 

250 data 84,3e,ad,37,14,c9,a0,f®,10,2d3 f 100 trap 410:restore 

268 data a2,19,bd,37,14,9d4,45,14,a9,315 110 data 0c,10,c1,07,9e,20,34,31,33,38 

2708 data a®,9d,37,14,ca,10,f2,20,80,ee6 120 data 00,00,00,ad,e5,07,c9,18,d9,03 

288 data 83,aa,f8d,cc,90,03,4c,d9,4d, a58 130 data ce,e5,07,ad,e8,07,c9,18,d®,03 

290 data 20,30,50,20,0a,43,84,0d,a80,9814 ' 148 data ce,e8B,07,29,00,84,f1,27,4c,®Be 

308 data 80,84,209,84,06,84,0c,B4,03,567 150 data ce,a9,39,84,02,03,39,10,84,03 

31@ data 88,c8,20,c9,03,aa3,f0,38,35,b5a 160 data 03,39,11,85,2c,60,a2,10,8e,15 

320 data 03,30,0c,e0,20,f2d,f1,e0,3a,9be 17® data 03,a2,ff,86,3a,20,532,88,86, 3b 

330 data f0,0c,e0,8f,f0,28,e0,22,d0,2b3 180 data 84,3c,ad,c®,@F,c9,a®,f®,10,a2 

340 data 02,49,80,09,01,85,29,B8a,a6,20e 198 data 19,bd,c®,0f,9d,ce,@f,a9,a0,39d 

350 data Qa,f®,06,03,69,00,ca,d@,fa,625 = 208 data c9,0f,ca,10,f2,20,73,04,aa,f® 

368 data 18,65,2b,85,0b,90,02,e6,8c,dib = 218 data d3,90,803,4c,25,87,20,3e,8e,20 

370 data e6,0a,a5,03,29,07,85,04,109,bb4 = 220 data 53,89,84,0b,a80,900,84,08,84,45 

388 data c1,46,09,90,17,a0,ff,a2,16,481 ‚ 238 data 84,46,84,09,88,c8,20,a5,04,aa 

398 data 20,10,14,c8,39,bd,99,37,14,965 24® data F2,38,a5,08,30,0c,e0,20,f0,F1 

400 data a2,0b,20,10,14,39,bb,399,37,a6b „ 250 data e®,3a,Ff0,0c,e0,8Ff,f0,28,ed,22 

418 data 14,4c,ea,4d,84,09,b5,00,85,b79 ' 268 data d®,02,49,80,09,01,85,08,8a,a6 

428 data 65,b5,021,85,64,a2,90,38,20,e22 = 270 data 09,f0,06,08,69,00,ca,d®,fa,18 

438 data 75,8c,28,44,Be,a4,09,aa,c8,ffb = 288 data 65,45,85,45,90,02,e6,46,e6,09 

440 data bd,200,01,F0,08,99,80,99,37,087 230 data a5,09,29,07,85,09,10,c1,46,28 

450 data 14,e8,d0,f2,68,"4c4,37282 I 300 data S9,17,a0,ff,a2,14,290,db,18,c8 

468 a=-1:for n=® to 345:read a$:on len ı 318 data a9,bd,99,c0,0f,a2,45,20,db,10 
(a$) goto 470,490,510,539,550® 328 data a9,bb,399,c0,0F,4c,36,87,84,08 

478 print "data-Fehler- [rvs)"as 330 data b5,00,85,63,b5,01,85,62,a2,30 

480 print ”zeile ” peek (65)+peek (66)* 348 data 38,28,ce,a2,20,71,a4,a4,08,aa 
256:end 358 data c8,bd,20,01,f0,08,09,80,99,c® 

499 b=dec (a$):poke a,b:p=p+b:a=a+l 360 data Or ‚aB,dB,27, 00,00. 00,08 

508 k=xor ((k*2 and 4095)+int (k/2248), 378 print "[clrIdas programm sollte vor dem ersten 
b):goto 570 startabgespeichert werden![down] 

518 if k=dec (a$) then k=®:goto 570 388 n=n+l:read a$:a=a+dec (a$):if len (a$)=2 then 3808 

} ” r Er 398 print "data-fehler: [rvs)”a$:poke 1264, peek (63): 

528 print "fehler: parity soll mid$ poke 1265,peek (64):poke 1263,1 
ee ee 498 a-peek (65)+peek (66)*256-len (a$)-1:poke 1269,a 

530 if a<ö then a=-dec (a$):pra:goto 570 and 255:poke 1270,8/256:help :end 

s40 print "pruefsumme fehlt! ":end 418 if er=-38 then print "break kann das programm 


zerstoeren!”:end 
428 if er-14 then resume 399 
438 if er<>13 then print "zeilen-eingabefehler!":help 


448 if nt>259 or a<>27332 then print 
"prusfsummenfehler, bitte pruefen!":end 
458 restore :for a=-4897 to 4354:read a$:poke a,dec 


458 print "das korrektorstarterprogramm kann jetzt 
abgespeichert werden. 
478 poke 45,3:poke 46,17:clr 


Korrektor für den 616/116/Plus/4 


Der Checker dient zur komfortablen 
Eingabe von Maschinenprogrammen. 
Er reduziert die Tipparbeit und ver- 
hindert Eingabefehler. Außerdem ent- 
fällt das langwierige Einlesen von Da- 
tazeilen. 

Der BASIC-Lader des Checkers steht 
auf Seite 50. Er poket nach dem Start 
mit RUN die Daten in den Speicher. 
Da er sich dabei selbst überschreibt, 
muß er unbedingt vorher abgespei- 
chert werden! Nach dem Einlesen der 


VE N ORBDALLAN 


Daten schreibt der Lader einen SAVE- 
Befehl auf den Bildschirm, so daß 
man nur Return zu drücken braucht, 
um den fertigen Checker abzuspei- 
chern. Dieser kann dann mit LOAD 
“CHECKER“,8 geladen und mit RUN 
gestartet werden. Will man den Chek- 
ker mit der Datasette benutzen, muß 
man bei der Diskversion einige Zeilen 
ersetzen (siehe Seite 50). Der Checker 
ist eine Art Texteditor für Maschinen- 
programme, die in Form von Hex- 


dumps abgedruckt sind. Jede einzelne 
Zeile (zu je acht Bytes) wird anhand ei- 
ner miteinzugebenden Prüfsumme auf 
Richtigkeit getestet. Bei Tippfehlern 
ertönt ein akustisches Signal. Die he- 
xadezimalen Daten werden mit den 
Tasten 0—9 und A—E eingegeben. 
Mit RETURN übernimmt man eine 
Zeile in den Speicher. Stimmt die vom 
Computer errechnete Prüfsumme mit 
der eingegebenen überein, ertönt ein 
hoher Ton. Bei einer fehlerhaften Zei-$ 
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le ist ein tiefer Ton zu hören, und der 
Cursor springt wieder an den Zeilen- 
anfang. 

Weitere Funktionen kommen folgen- 
den Tasten zu: 

Y: Muß vor dem Eintippen eines Pro- 
gramms als erstes betätigt werden! Der 
Checker fragt dann nach der Start- 
adresse, unter der das Programm spä- 
ter abgespeichert werden soll. Der be- 
nötigte Wert ist jeweils den Pro- 
grammbeschreibungen zu entnehmen. 
Cursortasten: Der Cursor wird mit 
den Cursortasten gesteuert. Erreicht 


er den oberen oder unteren Bild- 
schirmrand, wird gescrollt. 
INST/DEL: Löscht ein Zeichen oder 
fügt eines ein. 

HOME: Setzt den Cursor an den Zei- 
lenanfang. 

CLR: Löscht eine Zeile und läßt sie 
zur Veränderung frei. 

K: Löscht eine Zeile und zieht den 
Rest nach oben. 

I: Fügt eine Leerzeile ein. 

H: Setzt den Cursor an den Textan- 
fang. 


S: Speichert das Programm ab. Sollte 
sich im Text eine Leerstelle befinden, 
springt der Cursor dorthin. Saven ist 
erst möglich, wenn alle Leerstellen 
entfernt wurden. 


L: Lädt ein abgespeichertes Pro- 
gramm, um es zum Beispiel zu ergän- 
zen oder zu verändern. 


P: Druckt das Programm aus. Wird 
der Checker mit Runstop/Restore ver- 
lassen, so kann man ihn mit SYS 2073 
ohne Datenverlust wieder aktivieren. 


121 data 20,a0,02,20,hd, ff ,68,86,93,66,3d,4c,5b, ff, FF 4S92 5 43 data 65,18,69,28,85,65,390,02,e6,56,60,06,64,a5,61 “286 

127 data 2a,0f,39,00,04,c8,d0,a0,01,b1,b2,85,fd,c8,bl 3948 “44 data 18,69,08,85,61,90,02,e6,62,85,62,c9,3f,d0,0b 4477 

128 data b2,85,fe,38,4c,7d,f5,89,20,20,fd,Ge,aa,ea,20 477° ° us data a5,61,09,08,d0.05.a3.00.85.61.50.4c.a0.09.c3 4218 

129 data f8,0f,20,d0,£7,20,17,F8,b0,58,20,af,f5,a5,b7 43698 | 45 data 11,d0.03.4c.6e.0a.c9.91.40.03.4c.45.0a.c9.1d 4396 

130 data f®,07,20,ea,f7,90,09,b®,4a,20,2c,f7,f0,45,bB 33538 °° 47 data d2,03,4c,68,0b,c9,34,d8,23,4c,3a,0b,c9,0d,d® 4362 

131 data 43,a5,90,29,10,d0,3d,85,c3,89,480,85,c4,20,5a 4510 ° | 48 data 83,40.17,0c.c9.30.90.0F.c9.32.30.08.c9.41.90 4538 

132 data Of,bB,32,82,69,07,aa,90,02,e6,af,86,1d,8a,29 4392 us data 87,c3,47.b0.03.4c.98.0b.c9.13.d0.03.4c.3b.0c 4505 

133 data 38,4a,4a,4a,aB,a5,af,38,e9,40,06,1d,28,06,1d 4851 & S® data c9,93,d8,03,4c,95,0c,c9,14,d0,03,4c,e6,0c,c9 4925 

134 data 2a,85,1d,a2,00,e4,1d,F®,08,a9,ff,34,00,3c,e8 3943 = 51 data 94,d0,03,4c,bf,0c,c9,48,d0,06,20,30,0a,4c,bd 4035 

135 data d®,f4,b9,75,0d4,3d,00,3c,4c,19,08,4c,92,098,308 4224 ° 52 data 08,c9,49,d0,03,4c,11,0d.c9,4b.d®,03,4c.85.0d 4351 

138 data c3,ff,4c,92,09,20,de,2d,b2,53,20,fd,0e,20,d0 38833 ° S53 data c9,53,d0,03,4c,2d,10,c9,4c,d0,03,4c,79,@0F,c9 4657 

139 data f7,20,38,F8,b8,3b,20,8F,f6,a5,1b,85,ae,a5,1c 4418 ° _S4 data 59,d®,03,4c,68.10,c9,50.d0.@3,4c.b2.10.60.a2 3757 

140 data 38,e9,40,85,af,a5,fe,85,c2,a5,fd,85,c1,18,65 4675 2 55 data 08,20,00,18,a9,00,71,1d,49,Ff,c8,ca,d®,f8,60 4249 

141 data ae,85,ae,a5,af,65,c2,85,af,a9,01,20,6a,F7,b® 4904 P" 56 data c6,63,35,63,10,03,e6,63,60,c9,02,F0,F3,c9,05 4668 

142 data 13,a9,20,85,c1,89,40,85,c2,a5,10,85,af,a5,1b 45662 ° 57 data F®,ef,c3,08,f0,eb,c9,0b,f®,e7,c9,0e,f®,e3,c9 4SBB 

143 data 85,ae,20,67,f8,4c,19,08,20,08,85,1d,30,df,e&G 4207°_ ° S8 data 11,F0,df,c9,14,F0,db,c9,19,d®,df,a9,16,85,63 4132 

258 print "Cclr,2down]Jsave” chr$ (34)”"checker” chrs 3209 593 data 60,8e6,63,85,63,c9,1c,d80,03,06,63,60,c9,02,f0 4487 

(34) "Chome]”;:end - 60 data F1,c9,05,f0,ed,c9,08,f0,e3,c9,0b,f0,e5,c9,de +277 
j 61 data fO,e1,c9,11,F0,dd,c9,14,F0,d9,c9,17,d@,af,a9 4728 
g 62 data 1a,85,63,569,48,29,a0,0C,68,29,3F,09,80,a4,63 422s 
63 data 91,1d,4c,68,0b,a0,00,b1,1b,29,7F,c9,30,b0,02 4250 
Checker für den C64: Änderungen für Datasette BE 64 data 69,3a,e3,30,4c,83,09,20,aB,.0b.0a.Ga.Ga.Ga.8B5 4663 
& 65 data 0d,20,28,0b,05,0d4,50,25,65,85,1b,a5,66,29,03 4437 
i 66 data 09,04,85,1c,20,04,0c,20,e8,2b,b9,98,09,85,67 +313 
“ . data u 22 
a date if,a5,1d,0a,26,1f,0a,26,1F,a9,3c,85,20,a5.1d “1 
69 data 4a,4a,4a,23,07,28,60,a5,54,03,02,02,18,65,61 4052 
— 7@ data 85,1d,a5,62,69,00,69,40,85,1e,60,20,c8,0b,a® 4544 

2 date ann ram nu 30:06: 24:90.00.00,00,00,00 EG ME 71 data 80,84.02.20.b9,0b,20.83,08,a4.02.91.1d.cB,c® HEBS 

3 data Ba.@2.a9 18.84.05 de 20.2F 08.20 a3 Da de 26 2598 78 data 08,dd,ef,20,83,09,20,83,09,20,b9,0b,85,2d,20 +208 

4 data 08.20.27.08.29.00.85.c6.a5.c6.F0.fc.20.27.0a 4017 73 data 28,0b,c5,0d,f8,06,20,61,0c,85,63,60,25,57,a8 Be 

5 data ad,77,02,60,a9,00,84.20.d0.a9.0e.8d.21.d0.a® 4143 Bu, 24 Selm Ems Br. 10. D1 ES EEE en ee 

6 data 00,a2,d8,84,1b,84,1f,86,1c,86,20,a9,04,85,1e “978 w- a2 2.50 20.86 Bc 4c BF Oc Bd Gl du as 00 Bd.00 4033 

7 84,1d,a9,00,31,1b,a9,20,91,1d,c8,d®,f5,e6,1c 4525 Bl 77 una 9929777 ara: au Re an 14 0 94.4178 

8 e6,1e,ed,ed,dc,d®,ec,a®,17,a0,55,a9,06.31.1F 4336 je data di4,a9,11,8d,05,d4,29,£1,84,06,d%,89,11,Bd, 

3 ee ee er are 78 data d4,69,a2,00,ca,d®,fd,88,d®,F8,60,a9,00,8d,04 4094 
cB.S1.1F.a5S.1F.18.69. 28.85 IF 90 02 e6 20 ca 4auu E) 73 data d4,60,20,c8,0b,20,bd,08,a9,00,85,63,60,35,65 4932 
d@,de,ad,05,a2,30.a9,b0,99.00.@4,a.09,00,03 ses I} S@ data BS,1d,25,66,28,03,09,04,85,18,68,00,01,03,03 4515 

'c8.cB.cB eB 80 38 dd ed a2 06 bd ee. Ei data 06,07,09,02,0c,0d,@f,10,12,13,15,16,1a,1b,2® 
ee u en 55 ME Be data a8,00.8.1n.51.1d.08.08.dM,db,a2. 11.bo,ad.@c ISCH 
10,88,17,85,02,85,61,85,19,25,62,85,1m,20,f5 412 j ©? data ©14.63,0,00.84,Od.ca,ba,ad,Bc,bi.1d,a4,0d,91 3SSE 
08,5,19,18,69,08,85,19,98,02,.6,1a,a5,1b,ı18 ass IS B% date 14,d0,eb,29.00.91,1d,60,20,08,8c,5,63,Fd,CB NEE 

e4 ’ ’ ’ ’ ‘ ’ ’ ’ ’ ’ ’ ’ ’ ’ 
ee eg 86 data ca,bc,ad,®c,31,1d,e8,e8,e®,12,d0,ef,a9,ad,ad 3655 
66.09,68.20.66.09.20.83.09.a5.19.85.1d.a5.1a 4573 = 87 data 1b,91,1d,4c,3a,0b,20,04,0c,a9,F0,85,1f,a9,7F 4863 
18,69,40,85,1e,a5,1a,85,1f,a5,19,0a,26,1f,0a 4295 88 data 85,20,22,07,a9,0F,85,0d,8a,a8,bl,1f,a4,0d,31 3993 
25,1f,a9,3c,85,20,85,19,4a,4a,4a,29,07,a8,b9 4282 2 83 data 1f,c6,0d,ca,18,f3,a5,20,c5,1e,d®,06,a5,1f,c5 3858 
98,09,80,00,31,1f,F0,22,80,00,84,0d,b1,1d,28 4896 80 data 1d,f®,0d,a5,1f,38,e9,05,85,1f,b®,d8,c6,20,dd 38®8 
66,09,20,83,09,a4,0d,c8,c0,08,d0,ef,20,24,0b 3902 = 91 data d4,20,e8,0b,a6,1f,b9,75,2d,85,2d,b9,7d,@d,a® 4347 
20,83,09,20,83,09,20,66,09,4c,65,09,a2,1c,a® 4452 88 data 00,31,1f,43,08,85,02,b1,1F,25,0d,05,02,91,1fF 4258 
00,89,a0,91,1b,20,83,09,ca,d®,f4,60,48,4a,4a 4300 93 data e8,f0,08,28,7e,00,3c,08,4c,65,0d,20,bd,08,28 4453 
Ya,4a,20,74,09,68,29,0F,4c,74,09,18,69,F6,30 4237 = S Sr er AT wer 
02,69,906,69,ba,29,bf,a0,00,91,1b,e6,1b,d®,02 4358 = ata 03,01,20,04,0c,20,07,a2,0f,84,04,8a,a8,bi, 
e6,1c,60,a9,0Ff,8d4,18,d4,20,30,03,20,41,08,4c “246 = 36 data a4,2d,91,1d,ca,c6,0d,10,F3,85,1d,18,69,08,85 4903 
bd,28,80,40,20,10,08,04,02,01,a9,50,20,04,85 3956 e 37 data 1d,90,02,e6,1e,a5,1d,c9,f8,d®,dc,a5,1e,c9,7F 4181 
1d,84,1e,a2,16,a0,27,84,20,a9,4F,85,1F,a4,1F 4304 = data d®,d6,20,04,0c,20,e8,0b,a2,ff,18,08,28,3e,08 4718 
b1,1d,a4,20,91,1d,c6,1f,c6,20,10,f2,a5,1d,18 4375 data 30,08,ca,e4,1f,d®,F6,b9,75,0d,3d,00,3c,85,902 4452 
69,28,85,1d,90,02,e6,1le,ca,d®,dc,a9,c0,85,1b 3722 data bd,00,3c,28,23,39,7d,2d,05,02,3d,08,3c ,4c,bd 4377 
89,07,85,1c,a5,61,18,69,b0,85,19,a5,62,69,00 4854 data 08,a2,00,bd,00,3c,c9,ff,d0,03,e8,d0,f6,86,02 49831 
85,1a,4c,f5,08,a9,98,a0,07,85,1d,84,le,a2,17 4543 data a2,ff,e4,02,F0,3F,bd,20,3c,d0,05,ca,ed,ff,d® 3906 
a9,27,85,1f,a9,4f,85,20,a4,1f,bl,1d,a4,20,91 4472 data f2,a6,02,bd,00,3c,85,02,a0,00,25,22,39,938,03 “181 
1d,c6,20,c6,1f,10,f2,a5,1d,38,e9,28,85,1d,b® 3834 data f®,03,c8,10,f6,84,0d,a9,00,85,62,Ba,0a,26,62 4749 
02,c6,1e,ca,dd,dc,a9,50,85,1b,39,04,85,1c,a5 4227 data 0a,26,562,02,26,62,05,0d,0a,26,62,08,26,62,0a 3847 
61,85,19,85,62,85,1a,4c,F5,08,24,63,b1,65,49 4858 data 26,62,85,61,20,36,04,38,69,a0,07,bd,00,3c,d9 3857 
85,91,65,60,39,00,85,61,85,62,29,00,85,63,85 4788 data 75,0d,f0,05,88,10,F8,30,bc,84,02,39,08,85,1c 4@23 
64,89,55,85,65,29,d8,85,66,50,c6,64,30,0c,a5 4656 data 8a,0a,26,1c,28,26,1c,0a,26,1c,805,02 ,0a,26,1c 3836 
65,38,e9,28,85,65,b0,02,c6,66,50,e6,54,a5,61 4274 data 0a,26,1c,08,26,1c,85,1b,a5,1c,18,69,490,85,1c 4685 
38,e9,08,85,61,b9,0b,c6,62,10,07,a9,00,85,61 4236  11® data 18,69,86,04,85,1d,84,1e,a5,63,48,a5,64,48,a5 4253 
42 data 85,62,60,4c,e6,09,e6,64,a5,64,c9,17,f®,0c,a5 4726 111 data 65,48,35,66,48,a0,27,a9,a0,399,20,04.88,10,F8 4563 


50 Gum lanuar/88 
ELBE ER N, 


Pe 7 rn 


112 data a®,00,b1,1d,f®,09,20,28,0f,39,00,04,c8,40,F3 14064 © 144 data le,d®,db,4c,bd,08,a2,04,80,10,a9,88,20,66,0e 3781 
113 data a2,00,84,63,a9,06,99,00,d8,39,01,dB,c8,e8,et4 4167 data a3,0f, 85,1b,39,04,85,1c,20,b9,0b,8d,fe,088,28 4411 
114 data 04,d0,F7,a9,d8,85,66,39,00,85,64,85,65,85,20 4433 data b39,0b,8d,fd,08,4c,32,89,41,4e,456,41,4e,47,53 4239 
115 data 28,2F,08,48,29,60, de, 18,68,c9,0d,f0,2d,c9,14 4204 data 41,44,52,45,53,53,45,20,00,18,69,f6,90,02,69 4622 
116 data dd,ef,as,20,F®,eb.c5.53,.c6.20.a9,a0.a4.63.39 4769 - 148 data 06,69,3a,4c,d2,ff,4B,4a,4a,4a,4a,20,38,10,68 4479 
117 data 00,04,10,de,a4,20,68,39,00,22,c4,0d,F@,d4,a4 4170 — 149 data 29,0f,4c,98,10,20,de,2d,bO,ae,a9,00,20,bd,fF_ 4373 
118 data 63,20,2a,9f,99,20,04,26,20,06,63,d0,c6,a4,208 +994 150 data a9,04,aa,a®,00,20,ba,ff,290,c0,Ff,a2,04,20,c9 3663 
119 data a9,20,39,00,02,68,85,66,68,85,65,68,85,64,68 48093 151 data Ff,a0,06,29,20,20,d2,FF,88,d0,F8,a2,07,80,08 3531 
120 data 85,63,60,48,29,20,a0,0F,a2,0F,20,66,0e,38,a2 4109 152 data S8,20,24,10,a9,20,20,d2,ff,c8,ca,10,f3,a0,05 4406 
121 data 00,a0,02,20,bd,ff,68,aB,a2,08,a9,08,20,ba,ff 4286 153 data b9,6c,11,20,d2,Ff,88,10,F7,89,0d4,20,d2,FF,28 4361 
122 data 20,00,ff,a9,01,40,40,0Ff,46,49,40,45,4e,41,4d 4114 154 data d2,ff,a5,fd,8S,1f,a5,fe,85,20,a9,00,85,1d,aS 4394 
123 data 45,20,00,48,4a,4a,4a,4a,4a,aa,568,29,1f,1d,38 4369 155 data 40,85,1e,a5,1d,c5,1b,d®,06,85,1e,c5,i1c,f®,4e 4472 
124 data 2f,60,00,20,80,c0,40,e0,c0,e0,a9,08,20,b4,ff 3787 data a5,20,20,a4,18,a5,1f,20,84,10,89,20,20,d2,Ff 4037 
125 data a9,6f,20,96,FFf,a0,27,a9,a0,39,00,24,a9,00,39 sSı6“4 157 data 20,d2,Ff,a®,20,b1,1d,20,a4,10,a9,20,20,d2,ff 4013 
126 data 00,d8,88,10,F3,a0,00,20,a5,ff,c9,0d,f0,09,28 4725 158 data c8,c0,08,d0,f1,a9,20,20,d2,ff,20,d2,Ff,20,2a 4429 
127 data 2a,0f,99,00,04,c8,d0,F®,ad,28,04,04,01,04,293 3714 159 data 2b,20,a4,10,a9,0d,20,d2,Fff,aS,1F,18,69,08,85 4333 
128 data Of 48,20,ab,fFf,68,60,29,00,20,fd,0e,d®,6e,a2 3753 160 data 1F,30,02,e6,20,a5,1d,18,69,08,85,1d,30,aa,e6 3638 
129 data 08,20,c6,Ff,a9,00,85,930,85,1b,20,cf,FFf,85,fd 3951 161 data 1e,d®,a6,20,cc,ff,a9,04,40,c3,ff,4d,55,53,4b 4150 
130 data 20,cf,ff,8d,fe,00,20,F8,0F,a93,30,85,1c,29,008 4487 162 data 48,43,0d4,24,0d,2d,2d,0d,0d4,68,c1,00,00,00,00. 3733 
131 data 85,02,85,1d,a9,40,85,1e,aS,30,d0,35,a0,00,20 “266 200 For z=1 to 162:f$=-" ok”:Ffor b=® to 14 2239 
132 data cf,ff,91,1d,c8,c0,08,d0,F6,a0,00,86,02,b1,1b 4979 210 read h$:gosub 380:h=1*16:h$=-mids$ Ch$,2):oosub 300 3041 
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133 data 1d,98,09,91,1b,e5,@2,e8,e0,08.d0.06.23.00.85 4150 

134 data 02,e6,1b,a5,1d,18,69.08.85.1d.30.cf.e6.le.as 4363 A N 

135 data 1e,c9,80,d0,c7,20,cc,ff,a9,08,20.c3.FF,20.38 3883 | 520 poke B@3t+zeisen,nel ve 
= ®30 next :print "zeile”z;f$:next 1716 

136 date Qa,4c,32,09,89,00,85,c6,25,c5,fO,fc,d®,eb,a® 4218 | 240 make 45 1e8:pake as 47 aus 


137 data 00,98,399,00,3c,c8,d0,fa,60,20,cc,ff,a39,08,20 4361 
138 data c3,ff,4c,92,09,20,de,2d,b8,53,85,1b,48,a5,1c 4426 
139 data 48,a9,01,20,fd,0e,85,1f,68,85,10,68,85,1b,a5 4678 


258 print "[clr,2down]save” chr$ (34)”"checker” chrs 3398 
(34)” ‚8Chome)”; :end 


2 
ww 
s8 


148 data 1f,d0,c5,a9,00,85,1d,a9,40,85,1e,a2,08,20,c9 4925 l=-asc (h$+"x”)-4B8:if 1<®8 or 1>22 then 330 3067 
141 data Ff,a5,fd,20,d2,ff,aS5,fe,20,d2,Ff,a5,1d,c5,1b 4263 if 1<18 then return 19044 
142 data d®,06,a5,1e,c5,1c,f®,94,a0,08,b1,1d,20,d2,FF 4928 328 1-1-7:if 1>9 then return 1334 
143 data c8,c0,08,d0,f6,a5,1d,18,69,08,85,1d,90,df,e6 4984 330 1-®:f$=-" Crvsleingabefehler”:return 2647 


Basiclader des Checkers für den 664, Disk-Version 


Tabelle aller verwendeten 
Klartextausdrücke: 


Klartext Bedeutung 
down Cursor abwärts ar oben/unten 
up Cursor aufwärts SHIFT + CRSR oben/unten 
right Cursor rechts CRSR rechts/links 
left Cursor links SHIFT + CRSR rechts/links 
home Cursor home CLR/HOME 
elr Bildschirm löschen SHIFT + CLR/HOME 
del ein Zeichen löschen INST/DEL 
inst ein Leerzeichen einfügen SHIFT + INST/DEL 
spaces Leerzeichen Leertaste 
shift-space unsichtbares Zeichen SHIFT mit Leertaste 
F1-F8 die Funktionstasten 1—8 
black schwarz CTRL +1 
wht weiß CTRL +2 
red rot CTRL +3 
cyn türkis CTRL + 4 
pur purpur CTRL +5 
grn grün CTRL + 6 
blu blau CTRL +7 
yel gelb CTRL + 8 
Ivs Revers-On CTRL +9 
off Revers-Off CTRL +0 
shift ... SHIFT und ein weiteres 
Zeichen 
cbm ... CBM-(Commodore-)Taste und ein 
weiteres Zeichen 
asc ... ASCII-Code, gefolgt von Eingabe laut Commodore- 
einem Zahlenwert Handbuch 
stop RUN/STOP-Taste 
pi (t)-Taste 
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PIUS 4 LISTING 


EIN MODUL LERNT 


CRIPT/PLUS-Sup- 
port-Version 2.1 ist eine 
Weiterentwicklung des in 
RUN 9/87 vorgestellten 
Utilities und stellt dem Benutzer eine 
deutlich erweiterte Palette neuer An- 
wendungsmöglichkeiten zur Verfü- 
gung. Im wesentlichen sind dies: 


1. Deutscher Zeichensatz für Bild- 
schirm und Drucker (CBM- und Stan- 
dard-ASCII) 

2. Unterstützung vom Benutzer defi- 
nierter Zeichensätze (wenn vom Druk- 
ker vorgesehen). 

3. DIN-Tastatur 

4. Deutsche Bildschirmmeldungen 

5, Deutsche Informationstafeln 

6. Zusätzliche CENTRONICS- 
Schnittstelle am PLUS/4-Userport 

7. Anpassung an unterschiedliche Be- 
triebssystemversionen. 


1. Bedienung von SCRIPT/PLUS- 
Support 

Das Programm wird wie ein BASIC- 
Programm mit DLOAD“name“ oder 
LOAD“name“ von Kassette geladen 
und mit RUN gestartet. Im Auswahl- 
menü wird wie gewohnt die Textbreite 
im Editormodus (40-240 Spalten) und 
das gewünschte Speichermedium 
(Disk oder Tape) eingestellt. Bei der 
Druckerauswahl hat man die Wahl 
zwischen zwei Gruppen unterschiedli- 
cher Drucker: Jenen, die im Commo- 
dore-ASCII-Code arbeiten, Typ 0, 
und jenen, die den Standard-ASCII- 
Code benutzen, Typen 1-4. Zur ersten 
Gruppe gehören Commodore-Druk- 
ker, sofern sie über einen deutschen 
Zeichensatz verfügen und Drucker mit 
spezieller Commodore-Anpassung, 
zum Beispiel Star NL 10 mit Commo- 
doreinterface im Commodore-Modus 
und Seikosha xxxx VC. Zur zweiten 
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DEUTSCH 


„Seript-Plus-Support“ macht 
aus der englischen 
Textverarbeitung „Script/Plus“ 
eine deutsche Version. 
Zeichensatz und Menüführung 
sind übersetzt worden — einige 
neue Befehle und Utilities 

wurden hinzugefügt. 


Gruppe gehören alle EPSON- und EP- 
SON-kompatiblen Drucker (auch: 
Star NL 10 mit Commodore-Interface 
im ASCII-Modus). Bei Wahl eines 
Standard-ASCIHI-Druckers gelangt 
man in ein Untermenü, das dem Be- 
nutzer im Unterschied zur englischen 
Originalversion nicht zwei, sondern 
drei unterschiedliche Schnittstellen an- 
bietet: 


1.1 CENTRONICS-Schnittstelle 

Die CENTRONICS-Schnittstelle 
wird, ähnlich wie beim C64, am User- 
port des PLUS/4 realisiert. Sie ist aber 
wegen unterschiedlicher Kontaktbele- 
gung nicht mit dieser identisch. Somit 
können sogenannte „Userportkabel“, 
die für den C64 angeboten werden, 
nicht ohne weiteres verwendet werden 
(vgl. Anhang A). 


1.2 RS-232C-Schnittstelle 

Diese ist identisch mit der englischen 
Originalversion. Die Programmierung 
erfolgt in einem weiteren Untermenü. 


1.3 Die serielle Schnittstelle 

Diese Schnittstelle spricht Drucker un- 
ter den Gerätenummern 4-6 an (Stan- 
dard: 4). Die Gerätenummer 7 ist im 
übrigen intern für die CENTRONICS- 
Schnittstelle reserviert. Sind alle Para- 
meter eingestellt, gelangt man in den 
Editiermodus. 


2. Die Leistungsmerkmale 

Im folgenden sollen die wichtigsten 
Neuerungen der einzelnen Modi kurz 
angesprochen werden. 

2.1 Editiermodus 

2.1.1 Deutsche Bildschirmmeldungen 
Augenfällig ist in erster Linie die um- 
gestaltete und rein deutsche Benutzer- 
führung. Im Vergleich zur englischen 
Version wurden zudem die Meldungen 
wieder hinzugefügt, die dort aus Platz- 
gründen entfallen mußten. Geändert 
wurde auch das Erscheinungsbild der 


Statuszeile, soweit es die Anzeige des 


Editorstatus betrifft: 


ANZEIGE ALT NEU 
Zeilenumbruch W U 
Einfügemodus I E 
Dezimalmodus D D 
Großbuchstaben C G 


2.1.2 Deutsche Sonderzeichen und 
DIN-Tastatur 
SCRIPT/PLUS-Support stellt dem 
Benutzer die folgenden deutschen 
Sonderzeichen auf einer der DIN- 
Norm angenäherten Tastatur zur Ver- 
fügung (siehe Tabelle 1). 

2.1.4 Druckersteuerzeichen 


Hier stehen dem User zunächst die 


SCRIPT/PLUS-eigenen Steuerzeichen 
in Abhängigkeit vom gewählten Druk- 


kertyp zur Verfügung (vgl. SCRIPT/ 


PLUS-Handbuch, Seite 120). Diese 
werden im Text nicht mehr durch we- 
nig aussagekräftige 
sondern durch inverse, beziehungswei- 
se umrandete Großbuchstaben darge- 


Grafikzeichen, ° 


stellt. Darüber hinaus wurden zwei 


Steuerbefehle hinzugefügt: 

a) Hoch- oder tiefgestellte Zeichen 
werden wegen des besseren Schriftbil- 
des automatisch in Schmalschrift (17 
cpi) gedruckt. Nach Rückkehr zur 
Normalschrift gilt der PICA-Zeichen- 
abstand (10 cpi). 


b) Im NLQ-Modus wird durch den 
Steuerbefehl <ESC>„(“ die Kursiv- 
schrift („Italics“) eingeschaltet. Dane- 
ben besteht die Möglichkeit ASCII- 
Werte bis 93 in Klarschrift einzugeben 
(zum Beispiel: permanente Tiefschrift 
= <ESC>/„S“/„1*) oder aber grö- 
Bere Werte beziehungsweise nicht 
druckbare Zeichen als vorab zu defi- 
nierende Sonderzeichen (0-9) in den 
Text einzubinden. Zu beachten ist die 
geänderte Tastenbelegung (wegen 
fehlender eckiger Klammern ist die 
Breitschrift für die Tastenkombina- 
tion <ESC>/<CBM>Pfundzei- 
chen beziehungsweise <ESC>/ 
<CBM>,„x*“ ein- oder auszuschal- 
ten. 


2.2 Befehlsmodus 

Entscheidend ist stets der ASCH-Wert 
des betreffenden Zeichens: So wird 
zum Beispiel die Funktion „Suchen 
und Ersetzen“ statt durch die Kombi- 
nation <ESC > /(„Klammeraffe*“) 
durch die Kombination 
<ESC>/$ (=Shift/3) erreicht 
(ASCII-Wert 64). 


2.3 Textausgabe - 
Hier sind folgende Änderungen zu no- 
tieren: 


2.3.1 Bildschirmausgabe 

Besondere Arten der Schriftdarstel- 
lung wie „unterstreichen“, „fett“, 
„schmal“ werden auf dem Bildschirm 
nicht mehr durch inverse Zeichendar- 
stellung, sondern durch Unterstrei- 
chen der betreffenden Textstellen 
kenntlich gemacht. Dies soll einen 
(insbesondere im Hinblick auf Unter- 
streichungen) wirklichkeitsnäheren 
Eindruck vom Erscheinungsbild des 
erstellten Dokuments vermitteln. 


2.3.2 Ausgabe auf einen Drucker 

Die an den Drucker gesandten ASCII- 
Werte differieren je nach Art des ein- 
gestellten Druckertyps. Sie liegen aber 
in jedem Fall (auch im Commodore- 
Modus) unterhalb von 128. Dies hat 
den Vorteil, daß bei Druckern, die das 
Erstellen eigener Zeichensätze zulas- 
sen, alle selbstdefinierten Zeichen mü- 
helos dargestellt werden können. Die 
entsprechenden ASCII-Werte: 


Zeichen Commodore Standard 
$ 64 64 
a—z 65—90 97—122 
ä 123 123 


rl A Bee FA 


ö 124 124 
ü 125 125 
ß 126 126 
A—Z 97—122 65—%0 
Ä 91 91 
Ö 92 92 
U 93 93 


2.3.3 Ausgabe auf ein Speicherme- 
dium 

Diese Art der Textausgabe (<ESC>/ 
O/S) ist auf keinen Fall mit dem „nor- 
malen“ Speichern auf Diskette oder 
Band (Funktionstasste 5 oder 
<ESC>/F) zu verwechseln. Es han- 
delt sich vielmehr um das Umleiten al- 
ler für den Drucker bestimmten 
Zeichen (inklusive aller durch Tabula- 
toren bestimmten Leerzeichen etc.) 
auf das gewählte Speichermedium. 
Ein so erzeugtes File kann später, da 
es den druckfertigen Text enthält, 
durch ein einfaches BASIC-Pro- 
gramm über jeden Commodore- 
Home-Computer in Verbindung mit 
einem Drucker ausgegeben werden. 
Das SCRIPT/PLUS-Programm ist 
dazu nicht mehr erforderlich. Ebenso 
ist es möglich, mit Hilfe eines geeigne- 
ten Terminalprogramms die druckfer- 
tigen Daten per Datenfernübertragung 
zu übermitteln. 


Der Programmierer 
stellt sich vor 


Mein Name ist 
Oluf Heinrich- 
sen, geboren am 
30.9.1955 in 
Wuppertal- 
Ronsdorf. Völ- 
lig  unbelastet 
von Vorwissen 
Mm din Sachen 
„Computer“, aber mit dem Wunsch 
die Entwicklung nicht ganz vorüber- 
ziehen zu lassen, legte ich mir vor 
eineinhalb Jahren die Kombination 
Plus/4 und VC1551 zu. So entstand 
über einen längeren Zeitraum und 
abhängig von Fortschritten meiner 
Programmierkenntnisse unter ande- 
ren das Programm „Script-Plus- 
Support“ von dem ich hoffe, daß es 
auch anderen Plus/4-Usern gute 
Dienste leisten wird. 


BASIC-Beispielprogramm Drucker 

1 open2,8,2,“filename,s,r“ 

2 openl1,4 

2 open1,4,7:rem für 
Commodore-Drucker 

3 get#2,a$ 

4 ifa$=““ then a$=chr$(0) 

315 =st 

6 print#1,a$; 

7 ifts< >64then3 

8 closel 

9 close2 


3. Besonderheiten 

Nach diesem Blick auf die Leistungs- 
merkmale des Programms bleibt noch 
der Hinweis auf einige Besonderhei- 
ten. 


3.1 Anpassungsroutine 


Das Programm enthält eine Routine _ 


zur Anpassung von SCRIPT/PLUS 
an die verschiedenen Kernal-Versio- 
nen der C264-Serie. 


3.2. Verschiedene SCRIPT/PLUS- 
Versionen 

Die ROM-Bank, in der SCRIPT/ 
PLUS installiert ist, wird automatisch 
ermittelt. Es macht also keinen Unter- 
schied, ob SCRIPT/PLUS als Modul 
am Expansionsport betrieben wird 
oder an Stelle der integrierten Soft- 
ware („3-plus-1“) in den Rechner ein- 
gebaut wurde (PLUS/4-Platinensteck- 
plätze U25 und U26). 


3.3 Speicherbelegung 

Das Programm belegt trotz seines Um- 
fangs nach der Initialisierung keinen 
von SCRIPT/PLUS beanspruchten 
Speicherplatz. 


Adresse Funktion 
$057a—$05e6 Anpassungsroutine 
$0fe8—$1400 Kernprogramm 
$d400—$eaff Deutsche Meldungen 
$f000—$f3ff Zeichensatz 
$f400—$f7ff  Soft-RVS-Zeichensatz 


3.4 Hardwareanforderungen 
SCRIPT/PLUS-Support ist nur auf 
einem PLUS/4 oder einem auf 64 
KByte erweiterten C16 lauffähig. 


3.5 Servicediskette/-kassette 

Die RUN-o-THEK-Servicediskette/ 
-kassette (Bestellformular S.141) ent- 
hält neben dem eigentlichen Pro- 
gramm noch das komplette und kom- 
mentierte HYPRA-ASS-Quellcode- 
listing. So ist es möglich, das „Script/ 


Plus-Support“ (insbesondere Tasten- $ 
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belegung und Druckersteuerzeichen) 
den eigenen Vorstellungen anzupas- 
sen. 

4. Eingabe des Programms 

Das Programm wird mit Hilfe des 
RUN-Checkers eingegeben und vom 
TEDMON aus mit s“s/p-support 
v2.1“,08,1400,3180 auf Diskette oder 
mit s“s/p-support v2.1“,01,1400,3180 
auf Band gespeichert. 

Anhang A: Die CENTRONICS- 
Schnittstelle am PLUS/4-Userport. 
Die Verbindung CENTRONICS- 
Userport wird durch ein mindestens 
llpoliges Druckerkabel hergestellt. 
Userport- und CENTRONICS-Stek- 
ker werden folgendermaßen miteinan- 
der verbunden: 


Zeichen: Taste: 
# (Shift) Pfundz. 
£ > 
3 < 
< (Control) , 
= (Control) . 
N # 
y zZ 
zZ h£ 
ä ; 
ö R 
ü @ 
y z 
zZ y 
Ä } 
Ö { 
Ü (Shift) @ 
ß Pfundz. 


1400 e6,10,00,00,9e2,34,33,32, 49 
1408 38,22,04,13,13,93,.82,89, 89 
1410 de,12,b0,c0,c0,c0,c0,c®, ec 
1418 c8,c0,c0,c0,c0,c8,cd,cd, 088 
1420 c0,c0,c0,c8,c0,c0,cd,c0d, 8® 
1428 c9,c0,c8,c0,c0,c08,cd,c0d, 88 
1430 c80,c0,c0,c0.c8,c0,c0,c0, 00 
1438 cO,ae,dd,20,20,20,d3,43, 5e 
1449 S2,49,50,54,2F,50,4c,55, db 
1448 53,2d,d3,55,58,50,4f,52, al 
1459 54,20,30,d6,45,52,53,49, fb 
1458 4f ‚4e,20,32,28,31,20,20, ec 
1460 20,dd,dd,20,20,20,20,20, 28 
1468 20,20,20,20,d6,4Ff,4e,28, bS 
1470 cf ,4c,55,46,20,c8,45,49, e6 
1478 4e,52,49,43,48,53,45,4e, ee 
1480 20,20,20,20,20,20,20,20, ®® 
1488 20,dd,dd,d4,41,4e,4e,45, 49 
1490 4e,42,41,55,4d,45,52,20, 32 
1498 d7,45,47,20,39,37,2c,28, c7 
1430 35,36.30,30,20,d7,55,59, “Me 
1438 S0,45,52,54,41,4c,20,32, ec 
14b8 31,dd,ad,c8,c8d,c8,c0,cd, “41 
14b8 c0,c0,c0,c0,c8,c0,c8d,cd, 88 
1469 c0,c0,c0,c0,c0,c0,c0,cd, 88 
14cB c0,c0,c8,c0,c0,c0,c8,c®d, 08 
1440 c0,c0,c0,c0,c0,c0,c0,cd, 08 
14d8 c®,bd,0d,0d,5b,ce,4f,56, Ba 


CENTRONICS Bezeichnung Userport 

Pin Pin 

16 Masse A 
PO B 
P1 K 
P2 4 
P3 5 
P4 6 
P5 7 
P6 J 
P7 F 

1 BUSY H 
(DCD) 

1 STROBE D 

(RTS) 


Anmerkung: Die Schnittstelle läßt sich 
so nur am PLUS/4 verwirklichen. 
Beim C16 fehlt neben dem Userport 
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14e® 2e,38,37,5d,00,00,00,4c, 85 
14e8B 08,14,3b,3a,40,5d,5b,ba, 71 
14f® 5c,82,84,3c,3e,23,59,5a, 3c 
14f8 a9,a8,df,da,d9,5b,5c,5d, 83 
15900 db,ba,dd,bf,3c,3e,3b,33, 3e 
1508 40,58,59,23,5b,5d,d9,da, 19 
1510 53,54,45,46,00,00,00,0f, f® 
1518 50,34,35,00,00,00,0e,ce, 31 
1520 b3,e7,ad,f®,05,c9,d4,d®, ca 
1528 Oc,ad,f1,05,c9,d8,d0,05, 06 
1530 a9,c1,8d,f®,05,a9,8d,8d, e2 
1538 08,14,89,05,8d,09,14,a5, Ba 
1540 1a,c9,1b,d0,1c,35,19,c9, 65 
1548 28, F0,1f,c9,fe,f®,1b,c9, eB 
1550 F3,f0,17,a3e,06,2c,30,de, Bf 
1558 a9,80,cd,19,Fff,fd,1d,d®, 38 
1560 18,39,08,8d4,07,ff,a9,8d, 10 
1568 d®0,07,9,88,84,97,ff,a9, cH 
1578 81,cd,19,FFf,F0,06,8d,15, 30 
1578 FF,8d,19,ff,ad,0b,0c,cS, 71 
1580 c6,d9,16,2d,0c,0c,c3,c6, 62 
1588 d®,0Ff,a9,c1,8d,0a,0c,aS, Be 
1599 d5,8d,0b,0c,39,d3,8d,®c, Se 
1598 Oc,ad,de,0c,c9,d7,d0,05, le 
15a0 a9,dS,8d,0e,0c,2d,18,0c, b7 
1538 c9,c9,d0,05,a9,c5,8d,18, 2b 
15b8 Oc,ad,14,0c,c9,c3,d0,05, 38 
15b8 a9,c7,Bd,14,0c,ad,1d,8c, cc 
15c0 c9,cc,d®,05,39,da,8d,1d, 086 
15c8 0c,ad,23,0c,c9,c3,d0,05, 47 
15d8 a9,d3,8d,23,0c,6c,1f,11, ee 
15d8 29,bf,cf,20,cd,ce,aS,fb, b9 
15ed 48,39,00,85,Fb,08,58,20, 45 
15eB 11,db,a6,ef,Ff®,14,a2,12, 59 
15f® dd,eb,10,F0,05,ca,10,f8, 67 
15f8 30,08,bd,fe,10,a5,ef,9d, a3 
1600 26,05,4c,54,ce,48,a5,19, 2a 
1608 29,7F,c9,40,f0,08,c9,46, 9d 
1619 F0,04,c9,51,d0,03,4c,4c, 2f 
1618 ec,a5,d0,c9,1b,F,54,68, 66 
1620 85,d0,c9,1b,d0,02,18,60, e8 
1628 48,35,0b,d0,1Ff,68,c9,5b, ®4 
1630 80,6c,c9,c0,90,0d,c3,db, Sd 
1638 90,04,29,7f,d0,68,38,e9, fS 
1640 60,d0,5b,c9,5e,b8,1c,18, d6 
1648 69,20,d0,52,68,c9,41,90, 17 
1650 4d,c9,5e,b0,04,69,290,d0, If 
1658 45,c9,c0,90,06,c39,e08,b8, la 
1660 3d,29,7Ff,c9,ba,d®,04,a9, 1® 
1668 5c,d0,33,c9,bf,dd,2f,a9, 6cC 
1670 7e,d®,2b,68,29,7f,85,d®, di 
1678 c9,59,d0,04,a9,7c,d®d,1e, 19 
1680 48,82,03,dd,11,11,f0,05, b8 
1688 ca,10,f8,30,0b,39,1b,20, df 
1690 SFf,12,b6d,18,11,28,9f,12, af 
1698 a9,1b,20,9F,12,68,48,a5, Sc 
1638 39,c9,07,d0,04,68,4c,c7, 2a 
1638 13,68,4c,df,ec,aS,da,c9, 78 
16b9 47,d0,08,68,68,a9,10,48, a® 
16bB a9,81,48,4c,68,87,86,da, bi 


auch die notwendige IC-Bestückung 
(6529 B, ACIA 6551). Nachträglich 
eingebaute Userports weichen zumeist 
von dieser Konzeption ab und sind da- 
her in der Regel nicht kompatibel. 


Anhang B: Der PLUS/4-Userport 
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TI TE te 
ABCDEFHITKEMN 
Kontaktbelegung 

(Oluf Heinrichsen) O 


System: Plus 4/C16+ 

64 K Script/Plus-Modul 

Art: Utility 

Sprache: Assembler 

Programmname: Script/Plus-Support 
v2. 


16c0 68,c9,67,d0,0c,a3,68,c39, 38 
16c8 87,d0,04,89,12,a2,ad,48, eB 
16400 88,48,36,da,a9,d4,85,32, 36 
16d8 a9,00,85,31,78,8d,3F,ff, 27 
16e® a8,83,f0,12,20,8d,13,b1, fl 
16e8 31,d0,Ff9,ca,dd,f6,a0,81, 89 
16F® b1,31,c9,0a,F0,68,a9,13, Sb 
16f8 20,31,13,30,ff,84,59,89, le 
1700 12,c9,09,£0,0c,b0,15,c9, ®d 
1708 01,d0,0e,20,94,13,4c,6a, B3 
1710 13,89,0d,20,81,13,4c,58, d3 
1718 13,38,b5,70,c9,30,90,37, 30 
1729 c9,bFf,90,08,c9,e0,30,2f, db 
1728 38,e9,cd,2c,29,1f,aa,ad, ea 
17380 21,11,85,35,ad,22,11,85, 77 
1738 36,80,00,e6,35,d0,02,e6, 33 
1740 36,61,35,d0,Ff6,ca,18,f3, 3% 
1748 c8,b1,35,F0,08,20,a1,13, d3 
1750 e6,59,4c,49,13,39,20,20, Fa 
1758 al,13,c9,22,F0,29,20,Bd, 8d 
1760 13,e6,59,20,00,b1,31,d0, SB 
1768 98,18,a5,59,69,00,85,35, 84 
1770 a9,0c,85,36,35,59,c9,1d, e2 
1778 F0,0d,a9,20,208,a1,13,e6, 18 
1780 59,35,59,c9,28,390.ed,8d, 3d 
1788 3e,ff,58,60,e6,31,d0,02, ba 
1730 e6,32,60,Bd,3e,ff,20,c1, 26 
1738 bd,20,c1,bd,Bd,3Ff,ff,60, Bd 
1730 8d,3e,ff,58,20,62,81,78, bc 
1738 8d,3F,ff,60,20,e8,ee,f®d, 22 
17b® 03,4c,79,F2,20,f8,ee,c9, Bc 
17b8 07,f0,03,40,70,ed,a2,00, £5 
17c8 Be,10,fd,4c,81,ed,8d,10, 3£ 
17cB fd,a9,00,8d,02,fd,a9,08, Ge 
17d0 Bd,02,Fd,39,20,2c,01,fd, d7 
17d8 d®,04,35,91,30,F5,a9,01, ba 
17e0 85,ef,a9,03,84,27,05,18, Bf 
17e8 60,20,d9,eb,08,c9,“4a,d®, eB 
17E0 Oc,ad,f7,01,c9,92,d0,03, 58 
17f8 a9,59,2c,a9,43,28,60,a9, ac 
1808 05,cd,ee,05,f0,07,cd,ed, e9 
1808 85,F0,03,a9,00,0a,85,d0, lc 
1810 a9,84,8d,15,Ff,8d,19, ff, 1f 
1818 a9,71,8d4,3b,05,a9,08,aa, 3d 
1820 20,db,ff,20,4f,Ff,13,13, 75 
1828 33,0d,0d,0d,0d,80,bd,18, 3£ 
1830 10,20,d2,Ff,e8,e®,cd,S®, 88 
1838 £5,20,4f,ff,0d,20,20,20, 12 
1840 28,c3,29,20,31,39,38,37, 68 
1848 20,12,d2,92,a5,12,d5,92, 23 
1850 a5,12,ce,92,35,20,28,c3, b8 
1858 d7,2d,d0,d5,c2,cc,c9,cb, 98 
1860 c1,d4,c9,cf,ce,c5,ce,29, 35 
1868 0d,0d,0d,2d,0d,0d,0d,2d, 988 
1870 20,20,20,20,20,20,20,d3, Hd 
1878 43,52,49,50,54,2f,50,4c, 13 
1880 55,53,290,00,5,d0,d0,17, b® 
1888 20,4f,Fff,4e,49,43,48,54, 7C 
18930 20,56,4f,52,48,41,4e,44, d8 
1898 45,4e,21,00,4c,03,80,c59, 18 


18a® 
18a8 
18b® 
18b8 
18c0 
18c8 
18d0 
1848 
18ed 
1888 
180 
18F8 
1900 
1908 
1910 
1918 
19208 
1928 
1339 
1938 
1949 
1948 
1950 
1958 
1960 
1968 
1970 
1978 
19808 
198B 
1998 
1998 
19a08 
1938 
19b® 
19b8 
19c0 
19c8 
19498 
19d8 
19e0 
19eB 
19F0 
19F8 
1300 
1308 
lalo 
lalß 
1a20 
la28 
1338 
1a38 
1a40 
1a48 
1aS0 
1a58 
1a60 
1a68 
1a79 
1a78 
1389 
1a88 
1a90 
1a98 
laad 
laa8 
lab® 
lab8 
lacd 
lac8 
1add 
lad8 
lae®d 
lae8 
lafo 
laf8 
1b08 
1b8B 
1b1® 
1b18 
1b20 
1b28 
1b30 
1b38 
1b40o 
1b4B 
1b50 
1b58 
1b60 


05,£0,05,39,32,8d,bb,14, 
20,4f,Fff,49,4e,20,d2,cf, 
cd,2d,c2,41,4e,4b,20,12, 
20,82,31,84,20,92,00,a8, 
00,8c,3f,05,c8,c4,a4,d®, 
fc,a9,0a,8d,3f,05,a2,61, 
bd,5b,16,9d4,73,05,ca,1®, 
£f7,88,39,d4,85,d2,a9,F0, 
85,d4,84,d1,84,d3,b1,di, 
91,d3,c8,d08,f9,e6,d2,e6, 
d4,35,d2,c9,d8,90,ef,ad®, 
12,82,98,b9,35,16,85,d1, 
b9,48,16,85,d2,98,48,a®, 
07,b6d,3c,15,91,d1,ca,BB, 
10,£F7,68,38,88,18,e4,c6&, 
a9,F0,85,d2,a9,F4,85,d#4, 
84,d1,84,d3,32,07,78,8d, 
sr,2?f,b1,d1,31,d3,ca,10; 
0a,c9,08,d0,04,.9,FFf,S1, 
d3,a2,07,c8,dd,ec,e6,d2, 
e6,d4,a5,d4,c9,£f7,90,e2, 
d®,07,89,24,8d4,36,15,d®, 
d9,8d,3e,ff,58,a2,07,bd, 
d8,d7,9d,£f0,£7,bd,c8,d7, 
9d,c8,F7,ca,10,f1,8e,d7, 
£7,e88,Be,f7,F7,a0,00,a8, 
92,22,17,85,d1,86,d2,84, 
d3,89,d4,85,d4,b1,d1,91, 
d3,c8,d0,f9,e6,d2,e6,d4, 
a5,d4,c9,eb,90d,ef,a®d,d6, 
b9,bc,16,99,e7,0F,88,d®, 
E7,4c,e8,0f,3c,66,38,6c, 
36,1c,66,3c,66,18,3c,66, 
7e,66,66,00,66,3c,66,66, 
66,66,3c,00,66,00,66,66, 
66,66,3c,00,18,3c,66,00, 
00,00,00,00,00,66,3c,086, 
3e,66,38,008,ff,B1,bd,al, 
b9,31,81,FF,00,66,00,66, 
66,56,3c,00,38,6c,6c,78, 
6c,66,7c,60,FF,81,a5,a5, 
a5,bd,81,Ff,Ff,ff,c3,df, 
ER-OESER,ER TE,EE ID, dh, 
üb,63,Ef,cE,re,sd,a1,89, 
85,b9,81,ff,Fff,e3,df,e7, 
fb,c7,ff,Fff,00,66,3c0,66, 
66,66,3c,00,FFf,c7,db,c7, 
db,c7,FF,Ff,fFf,b9,a5,b9, 
a5,b9,81,Ff,Ff,Ff,db,db, 
e3,db,FFf,ff,ff,81,35,85, 
bd,a5S,81,FF,00,d8,d0,e8, 
£fd,d8,e®d,e8,F8B,f8,30,48, 
c0,c8,ed,e0,f0,68,e8,f0, 
f2,F3,F2,F0,F0,£2,F0,F3, 
F2,E3,63,£3,23,69, 23,83; 
£3,F3,a5,da,a6,db,a4,dc, 
60,a4,4d,a7,2b,ba,17,0S, 
c5,a7,30,05,d6,85,da,86, 
db,84,dc,30,08,68,d9,8®, 
05,f0,0b,118,88,88,d0,FS, 
20,78,05,4c,bf,12,aa,68B, 
d9,7f,05,F0,05,48,Ba,4c, 
9b,05,b9,85,05,118,b9,86, 
05,48,20,7a,05,20,bf,18, 
“c,a9,10,20,39,10,c9,0d, 
£0,07,c9,03,4d0,f5,4c,5b, 
a4,4c,f2,a2,20,39,10,c$9, 
03,f0,F9,60,39,00,a2,14, 
a0,08,85,d1,86,d2,91,di, 
cB,dd,fb,e6,d2,a6,d2,eßd, 
2e,90,f3,88,8c,60,15,20, 
8b,d8,ad,14,03,ae,15,03, 
8d,1f,11,8e,20,11,a9,11, 


a2,11,a0,12,78,8d4,13,03,° 


8e,15,03,8c,25,03,a9,d9, 
a2,23,80,06,8d,12,03,Be, 
14,03,8c,24,03,39,ad,a?, 
13,8d,1e,03,8e,1F,03,a9, 
ea,a2,13,8d,28,03,8e,29, 
03,36,d0,86,Ffb,3d,d0,fd, 
78,d8,a2,ff,9a,a2,1la,bd, 
0a,80,9d4,5F,05,ca,1®,F7, 
a2,34,bd,24,80,9d,f5,05, 
ca,10,£f7,a9,00,85,7d,a9, 
08,20,62,81,39,£0,8d,13, 
ff,a9,c3,8d,12,FfFf,a9,08, 
8d,02,fd,4c,2f,82,39,80, 
85,55,a9,0F,80,04,20,90, 
bc,Ff9,12,ad,03,02,c9,53, 


1b68 
1b7® 
1b78 
1b8® 
1b88 
1b9® 
1b98 
1ba® 
lba8 
1bb® 
1bb8 
1bc® 
1bc8 
1bd® 
1bd8 
1be® 
lbe8 
1bfF® 
1bf8 
1c908 
1c08 
1c1® 
1c18 
1c20 
1c28 
1c3® 
1c38 
1c4® 
1c48 
1c50 
1c58 
1c60 
1c68 
1c70 
1c78 
1c8® 
1cB8 
1c30 
1c98 
1ca® 
1ca8 
1cb® 
lcb8 
1cc® 
lcc8B 
1cd® 
lcd8 
1cc0 
lce8 
1cf® 
icfB 
1d998 
1d08 
1d1® 
1d18 
1d28 
id28 
1d3® 
1d38 
1d40 
1d48B 
1450 
1d58 
1d68 
1d68 
1d70 
1478 
1d8®8 
1d88 
1d98 
1d98 
1da® 
lda8 
1db® 
1db8 
1dc® 
l1dcB 
1dd® 
1dd8 
1ded 
1de8 
1df® 
1df8 
1e08 
1e28 
le1® 
1e18 
1e20 
1e28 


£0,0b,c9,43,f0,0a,c9,52, 
d®d,e4,4c,38,83,4c,6e,83, 
a9,07,4c,70,83,4B,a5,ef, 
E9,£c,68,20,72,81,c1,d8, 
EO,f3,c9,4a,d0,02,39,59, 
680,29,c5,c4,c9,d4,cf,d2, 
cd,cf,c4,d5,d3,20,20,20, 
02,20,03,20,04,20,05,00, 
al,41,4e,46,5d,47,45,4e, 
00,a2,a3,47,45,a4,9d,54, 
00,25,36,00,d3,37,a8,00, 
89,01,00,88,00,4e,41,43, 
48,20,a1,3d,38,900,c4,55, 
52,43,48,53,55,43,48,45, 
4e,20,20,00,c5,ab,f9,20, 
c5,c9,ce,89,41,4c,4c,45, 
20,85,9d4,53,20,36,08,cc, 
41,44,45,a0,b3,01,00,ac, 
94,45,20,38,00,ad,9d,3a, 
00,00,d6,45,52,53,43,48, 
49,45,42,45,42,ae,46,45, 
53,54,4c,45,47,45,4e,00, 
a5,34,F9,00,c2,ae,56,45, 
52,53,43,48,49.45,42,45, 
4e,00,a3,ef,41,55,46,46, 
5d,4c,4c,45,4e,00,a3,ef, 
af,f9,008,d7,45,4c,43,48, 
45..20,06,41,55,46,52,48, 
43,48,54,55,4e,47,3F,00, 
a1,53,87,f9,00,a1,45,ab, 
£f9,080,b0,00,c2,F0,45,52, 
a4,£f9,00,d4,52,45,4e,4e, 
56,4f,52,53,43,498 40,41, 
47,20,47,45,24,9d,54,00, 
b1,9d4,53,20,33,00,b2,9d, 
b3,53,55,52,5d,43,4b,47, 
45,a4,9d,54,08,c2,ae,9d, 
53,4e,41,4d,45,33,08,bl, 
9d4,52,20,b4,00,b5,b4,00, 
Ce, 39,33,38,53,54, 43,90, 
45,4e,55,4d‘,57,41,4e,44, 
4c,55,4e,47,00,d4,4f,4e, 
47,45, 38. 45, SE UI TB SUR; 
52,20,c5,09,ce,2f,cl,ds, 
d3,00,66,33,47,45,a4,9d, 
54,00,d8,41,52,41,4d,45, 
54,45,52,20,5b,4e,44,45, 
Sse,4e,3Ff,20,00,b7,94,2d, 
b8,9d,55,4e,47,00,a1,9d, 
4e,2d,b8,9d,55,4e,47,00, 
c1,44,44,49,59,49,4f ,‚4s, 
00,43,55,42,54,52,41,4b, 
54,49,9£, He, 00,C04,49,5B, 
49,53,49,4F. ,48,08,cd,55, 
40, 53,499,50,40,39.45 41, 
54,49,4f,4e,00,d0,52,4Ff, 
Sa,45,4e,54,00,b9,00,bB, 
ef,af,00,b9,41,42,47,45, 
4c,45,47,54,00,ea,9d,53, 
54,45,40,40,45,4e,29,2B, 
30,24,31,380,29,3F,20,00, 
00,d2,5d,43,4b,53,50,52, 
S5,4e,47,20,53,55,52,20, 
b4.,39,473,55,53,87 41,32, 
45,08,b7,9d,42,ae,46,45, 
53,54,4c,45,47,45,4e,00, 
c2,41 48,45, 55.44,53,43, 
48,41,4c,54,55,4e,47,00, 
cb,4f,50,49,45,20,4e,41, 
43,48,20,ba,80,cc,41,42, 
45,40,20,46,4c,45,58,2e, 
20,c2,4c,4f,43,4b,20,28, 
41,24,58,29,38,20,00,cc, 
41.932,45 40,29,.4356,45,593, 
54 ,2e,28,c2,4c,4F,43,4b, 
20,28,41,2d,5a,29,3a,20, 
00,b3,41,4e,50,41,53,53, 
45,4e,3a,20,00,b7,9d,2d, 
b8,9d,55,4e,47,00,c4,55, 
52,43,48,53,55,43,48,45, 
4e,20,28,47,52,4f,bf,2f, 
4b,4c,45,49,4e,29,00,bb, 
bc,00,d5,4d,42,52,55,43, 
4B8,20,20,20,c5,c09,ce,00, 
bb,bd,f9,00,bb,47,45,be, 
9d,54,3Ff,00,d6,45,52,53, 
49,4f,48,20,32,2e8,31,2c, 
20,33,30,2e,ce,4f ,S6,2e, 
31,39,38,37,00,b8,9d,55, 


1e30 
1e38 
le4® 
le48 
1e50 
1858 
1e60 
le68 
1270 
le78 
1e80 
1e88 
1e3® 
1e98 
lead 
leaß 
leb® 
leb8 
lec® 
lec8 
led® 
led8 
lee®d 
lee8 
lef® 
lef8 
1f00 
1F08 
1F10 
1f18 
1F20 
1F28 
130 
1F38 
149 
1r48B 
1FS9 
1F58 
1f60 
1F68 
1F70 
1f78 
1fF80 
1f88 
1F90 
198 
1fa® 
1fa8 
1fbd 
1fbB 
1fc® 
1fc8 
1fd® 
1Fd8 
lfed 
1fe8 
1Ff® 
1FFB 
2008 
2008 
2010 
2018 
20208 
2028 
2030 
2038 
2040 
204B 
2058 
2058 
2060 
2068 
2078 
2078 
2080 
2088 
20908 
2098 
2020 
2088 
20b® 
20b8 
20c0 
20c8 
2048 
2048 
20ed 
20e8 
POF® 


48,47,280,41,55,53,47,45, 
46,5d,48,52,54,00,b7,9d, 
42,a8,46,45,53,54,4c,45, 
47,45,4e,00,93,12,20,e6, 
94,53,20,a8,fe,Fd,ed,0d, 
c5,52,53,54,20,3c,ee,3d, 
3e,20,44,52,5d,43,4b,45, 
Ye,2c,20,44,41,4e,4e,09, 
12,20,ca,20,92,29,c2,41, 
Ye,4b,20,55,44,53,43,48, 
41,4c,54,45,4e,20,20,12, 
20,cf,20,92,28,bb,9d,“41, 
55,53,47,41,42,45,04,12, 
c9,42,53,92,20,a1,45,ab, 
£9,20,20,12,c5,2b,c1,32, 
28,41; Mc, 40,45,53, 20;45, 
4e,54,46,45,52,48,45,4e, 
12,0%,45,36,32,20,21545, 
4e,54,46,45,52,4e,45,4e, 
20,20,12,c5,2b,d2,92,20, 
d2,45,53,54,20,45,4e,54, 
46,45,52,4e,45,4e,20,12, 
20,d2,208,92,20,c1,52,42, 
45,49,54,53,42,ae,20,20, 
12,280,c1,20,92,20,c2,ae, 
9d4,53,4b,4f,50,49,45,0d, 
12,20,c4,20,92,2080,d3,37, 
Sd,42,a3e,20,20,12,20,d8, 
20,92,20,c2,ae,9d,53,56, 
45,52,53,41,54,58.12,43, 
48,2f,d2,92,20,67,9d,56, 
45,52,53,43,48,2e,20,20, 
12,d3,48,2f,c6,92,20,c2, 
ae,53,41,56,45,4e,09,12, 
20,d3,20,92,20,12,20,ac, 
9d4,2d,20,55,4e,44,20,e5, 
9d4,42,£F0,44,45,46,49,4e, 
49,45,52,45,4e,298,09,12, 
20,c8,2b,cd,20,92,20,44, 
55,52,43,48,53,55,43,4B, 
45,48,20,20,12,20,40,2b, 
cd,28,32,20,53,55,43,48, 
45 ,4e,2b,45,52,53,45,54, 
5a,45,4e,09,12,d4,cl1,c2, 
d3,20,28,53,55,45,52,53, 
54,00, cf ,92,54,53.92,45, 
53,54,49,4d ,4d,55,4e,47, 
20,44,49,54,20,c3,55,52, 
53,4f,52,29,20,0d,d4,20, 
28,234,94,45,4e,fd,c3,28, 
20,36,20,20,da,20,20,41, 
“c,40,45,20,a6,9d,f1,9d, 
d4,20,35,9d,53,20,41,H4e, 
5a,45,49,47,45,4e,09,12, 
b2,9d,b3,fe,fe,fe,fe,fe, 
Fe,92,23,9d,3a,fe,c2,208, 
28,26,40,45,58,48,42,45, 
4c,fe,cd,20,20,46,45,53, 
53,44,39,54, 28,00, 33,42, 
45,4c0,3a,20,20,fe,f1,9d, 
c2,20,fe,fd,f1,9d,cd,d&6, 
20,20,c6,45,4c,44,45,52, 
280,16,5d,“4c,4c,45,4e,fd, 
£f1,9d,d6,28,c6,45,4c,44, 
45,52,20,40,45, 45,52,35, 
4Ye,c6,33,20,b1,9d4,53,20, 
66,15, 4c,44.,F9, CB, H£ ‚Ad, 
45,Fd,63,53,83,4B,40;89} 
45,bF,45,4e,09,f2,91,00, 
00,09,0d,fd,bb,9d,45,43, 
48,47,41,42,45,20,28,34, 
30,2d,32,34,30,20,d3,50, 
41,4c,54,45 ,4e,29,3F,20, 
a0,20,20,34,30,0d,11,Fd, 
12,28,c4,29,92,49,53,4b, 
E0,028,12, 20,04, 293, 30,47, 
50,45,20,e1l,e2,f93,9d,52, 
Be,3f,28,Ffd,44,0d,11,Fd, 
£f3,94,54,59,50,28,28,30, 
2d,34,29,3F,20,Fd,30,0d, 
11,Fb,28,20,12,20,30,20, 
92,20,e3,9d4,F3,28,c3,4f, 
4d,4d,4f,44,4f,52,45,20, 
c1,d3,c3,c9,c9,29,0d,11, 
fd,12,20,31,20,92,20,e3, 
94,f3,28,d3,54,41,4e,44, 
41,52,44,20,01,03,03,08, 
c9,29,0d,11,fd,12,20,32, 
20,92,28,ce,45,43,20,d3, 
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58,49,4e,57,52,49,54,45, 
52,0d4,11,fd,12,20,33,20, 
g92,28,d41,55,4d,45,2f,c4, 
49,41,42,40,4Ff,2F,38,33, 
39,30,2F,36,34,30,30,0d, 
11,£fd,12,20,34,20,932,20, 
c1,4e,44,45,52,45,20,ce, 
49,43,49,54,€29,03,30,£3, 
Od,fb,08,e0d,c2,ae,55,"4e, 
44,45,46,49,4e8,49,45,52, 
54,00,ed,c2,ae,3d,5d,“2, 
45,52,53,43,48 ,4e,45,49, 
44,55,4e,47,00,034,09,0d, 
12,20,d7,45,49,54,45,52, 
20,4d,49,54,20,e4,39d,2c, 
20,53,55,52,5d,43,4b,20, 
4d,49,54,209,3c,d3,d4,cf, 
d®O,3e2,280,92,00,ac,3d,45, 
28,4f,48,4e,45,20,b9,00, 
e5,94,33,00,93,92,11,12, 
£fd,£3,9d,2d,c9,4e,54,45, 
52,46,41,43,45,Fe,fe,fe, 
fe,03,0d4,09,fd,c2,43,54, 
54,45,20,43,43,48,4e,49, 
54,54,53, 9%, 79,46,40,49), 
20,57,5b,48,4c,45,4e,3a, 
09,09,Fb,09,Fd,12,20,43, 
20,92,20,2e,2e,2e,2e,2e, 
Be ,2e,2e,2Ze,2e,20,c3,c5, 
ce,d4,d2,cf,ce,c9,c3,d3, 
20,28,d0,cc,d5,d3,2F,34, 
29,09,fd,12,28,52,20,32, 
EO,2e,2e,2e,2e,2e,Ze,2e, 
Be,2de,2e,2e,2e,2e,20,d2, 
d3,2d,32,33,32,c3,28,28, 
dd,cc,d5,d3,2f,34,29,29, 
fd,12,20,53,20,92,20,2e, 
Be,2e,2e,2e,2e,de,de,de, 
2e,2e,28e,20,53,45,52,49, 
45,40,40,45,50,29,603,6c5, 
63,20,02,55,53,89,fb,89, 
29,£9,96,4F.,52,45,49,4e, 
53; 34,49, 4040,55, 48,47, 
3a,20,20,53,45,52,49,45, 
4, 40,45,52,20,03,05,€3, 
2d,c2,55,53,00,e0,d3,5®, 
45,49,43,48,45,52,20,42, 
45,40:45,47,594:09,05,58, 
53, 54,45:,53,.20;c6; 49,46, 
45,33,00,82,63,5d,42,45, 
52,53,433,49,52,45,493,42, 
45,4e,3F,84,00,bb,be,3d, 
4ea,00,86,41,55,53,47,45, 
46,5d,48,52,54,00,cf,2e, 
cb,2e,09,86,41,42,47,45, 
42,52,4f,43,48,45,4e,90, 
e2,£9,39,55;,4d4,44,45,52, 
33,88,c1,4e,53,41,48,4c, 
33,00,8e7,c4,41,54,45,4e, 
00,b2,9d,aa,9d,38,20,00, 
e7,a3,ef,00,F3,4e,49,43, 
48,547 20,42,45;54,52,49, 
45,40,53,42,45, 52,45 ,49, 
54,00,33,12,20,d4,41,50, 
“45,20,a8,fe,fe,fe,fe,fe, 
£fd,20,09,09,cb,41,53,53, 
4,5458. .05: 20.835,99, 48, 
4c ,45,47,45,4e,09,d0,52, 
4,47 ,50,41 49 49,48. 415 
4d,45,33,20,22,00,93,32, 
12,fd,d2,d3,24,32,33,32, 
c3,2d,c4,45,46,49,4e,49, 
54,49,4f ,4e,20,fe,fe,fe, 
£fd,09,09,fd,cb,4f,4e,S54, 
52,4F,4c,4c,e8,0d,11,fd, 
e6,394,53,e8,09,09,fb,09, 
fd,d6,4f,52,45,49, 48,53, 
54,45,4c,46,55, 48,47 ,45, 
Ye,3a,8d,1l,fd,c2,41,55, 
44,2d,d2,41,54,45,20,20, 
De,Ze,2e,de,Ze,2e,2e,2e, 
2e,20,31,32,30,30,28,c2, 
70,03, 93,08, 93,49,%3.,00, 
£fd,d7,4f,52,54,2d,cc,Sb, 
48,47 ,45,20,2e,2e,2e,2e, 
Be,2e,Ze,lZe,2De,de,2e,2e, 
Be,2e,2e,28,20,38,20,c2, 
49,53,53,04,70,43,5%,4F,, 
58,2d,c2,49,54,53,20,20, 


23c® 
23c8 
23d® 
2348 
23e®d 


ı 23e8 


23F0 


 23F8 


2400 
2408 
2410 
2418 
2420 
2428 
2430 
2438 
2440 
2448 
2450 
2458 


’ 2460 


2468 
2470 
2478 
2480 
2488 
2490 
2498 
24a0 
e4aB 
24b® 
24b8 
24cd 
24cB 
24d® 
24d8 
24ed 
24eB 
eyf® 
euf8 
2500 
2598 


. 2510 


2518 
2520 
e52B 
25390 
2538 
2540 
254B 
25508 


5 2558 


2560 
2568 
2570 
8578 
2582 
2588 
25908 


ı 2598 


2530 
25a8B 
25b8 
25b8 
25c0 
25c8 
25d0 
25d8 
25e8 
25e8B 
25f® 
esfe 
2600 
2608 
2610 
2618 
2620 
2628 
2638 
2638 
2640 
2648 
2659 
2658 


, 2660 


2668 
2670 
2678 
2680 


Ze,2e,2e,2e,2e,2e,2e,2e, 
Be,Ze,2e,2e,2De,2e,2e,2e, 
Ze,2e,20,45,49,4e,53,0d, 
Fd,d®8,41,52,49,54,5b,54, 
20,20,20,20,2e,Ze,Ze,2e, 
De ,2e,de,2e,2e,2e,2e,2e, 
Be,Ze,2e,2e,2e,20,4b,45, 
49,48,45,09,fb,09,09,fd, 
56,47,4c,28,20,d3,43,52, 
49,508,54,2F,50,4c,55,53, 
2d,c8,41,4e,44,42,55,43, 
48,208,c1,4e,48,41,4e,47, 
20,c5,0d,fd,fe,d®d,cc,dS5S, 
03,20,33,829,C2,45, 44,49; 
45 ,4e,55,4e,47,53,48,41, 
4e,44,42,55,43,48,00,93, 
0d9,c9,2f,cf,2d,ed,ce,52, 
2e,06,09,00,e6,42,45,53, 
54,5b,54,49,47,53,3F,20, 
00,33,09,09,09,09,20,20, 
12,20,e80,92,20,e2,4e,49, 
43,48,54,20,45,49,4e,47, 
45,53,43,48,41,96,54,45, 
54,21,09,00,e0d,4d,45,48, 
s2,29,41,40,53,20,35,39, 
20,35,3d4,53,00,ea,20,20, 
c5,c9,ce,00,c7,52,4f,bf, 
42,55,43,48,28,20,c5,c9, 
ce,200,33,92,04,12,20,e3, 
aB,fe,fe,fe,fe,fe,fd,20, 
04,208,00,41,55,46,57,5b, 
52,54,53,09,41,42,57,5b, 
52,54,53,00,4c,49,4e,4b, 
53,00,52,45,43,48,54,53, 
00,41,42,20,eb,ce,52,2e, 
3a,20,00,ec,53,55,20,47, 
S2,4f,bf,00,b9,53,55,20, 
47,52,4f,bfF,00,4b,45,49, 
4e,45,20,ec,47,45,46,55, 
Ye,44,45,4e,00,b7,9d,56, 
45,52,53,43,998,49.35,32, 
S5,4e,47,00,00,e8,55,“e, 
47,54,40,54,49,47,45,53, 
20,33,00,02,09,82,3e,3e, 
3e,3e,3e,84,20,d7,45,49, 
54,45,52,20,4d,49,54,20, 
42,95,46,49,45,42,49,47, 
45,52,20,d4,41 , 53,54,45, 
a0,82,3c,3c,3c,3c,3c,84, 
84,00,0a,91,c4,41,54,45, 
4e,20,49,4e,20,ba,06,20, 
47,45,48,45,4e,20,56,45, 
52 ,4c,4f ,52,45,4e,21,0d, 
00,93,32,12,Fb,20,20,d3, 
43,58,493,50,59,26,58@, 16, 
S5,53,20,d4,45,58,54,56, 
45:52:41,52,92 4539854, 
5S5,4e,47,20,20,d6,32,2e, 
31,20,fe,fe,fe,fe,fe,fe, 
fe,fe,fe,fe,20,28,c3,29, 
29.40,52,45,413,49,53,.38; 
Yf ,4e,20,d3,4Ff,46,54,57, 
41,52,45,20,fe,fd,fb,92, 
94,20,00,f4,06,38,20,F5, 
55 ,4e,42,45,4b,41,“4e,4e, 
54,00,F4,06,33,20,46,41, 
4c,53,43,48,45,53,20,da, 
45,49,43,48,45,4e,00,f4, 
06,33,20,ec,5a,55,20,47, 
S2,4f,bf,00,f4,06,3a,20, 
d7,45,52,54,20,e1,cb,Hf, 
4d,4d,41,20,46,41,4c,53, 
43,48,00,£f4,06,3a,20,d4, 
cc,28,3e,28,d0,cc,88,F4, 
06,3a,28,cb,Hf ‚4d,4d,41, 
54,41,20,49,4e,20,c8,cit, 
ef,c8,d3,2f,c6,d4,2f,c6, 
d3,08,fF4,06,33,20,cB,c“, 
2ef,c6,d4,2f,d0,d3,2d,bb, 
5a,55,28,4c,41,4e,47,00, 
£f4,06,33,20,bb,9d4,42,52, 
45,49,54,45,20,53,55,20, 
47 ,45,52,49,4e,47,20,00, 
£f4,06,20,f4,06,3a,20,F6, 
£f8,3d,20,30,00,f4,06,3a, 
20,f6,38e,20,F7,f8,00,F4, 
06,33,20,c8,c4,2f,c8,d3, 
2d,d7,45,52,54,20,58,55, 
20,47,52,4f,bF,900,F4,06, 


08 
08 
ic 
18 
00 
08 
14 
34 
6c 
24 
6d 
a9 
sı 
22 
£9 
608 
Gf 
c6 
16 
6e 
84 
32 
FL 
cb 
sf 
dd 
ce 
£2 
e1 
87 
d7? 
4c 
57 
Sc 
22 
od 
55 
37 
31 
92 
05 
76 
d6 
fb 
00 
79 
05 
3d 
d6 
18 
76 
44 
de 
15 
u 
3a 
a4 
7d 
10 
92 
62 
55 
7d 
81 
de 
69 
ec 
Fb 
df 
c9 
4b 
ıf 
21 
da 
30 
ic 
66 
dd 
7d 
13 
15 
06 
32 
£l 
84 
54 
ae 
83 
88 


268B 
2639 
2698 
2630 
2638 
26b8 
26bB 
26c0 
26c8 
26d8 
26d8 
26e8 
26e8 
2EFO 
[1=13:] 
2720 
2708 
2718 
2718 
2720 
2728 
2730 
2738 
2740 
2748 


| 2750 


2758 
2760 
2768 


ı 2770 


2778 
2780 
2788 
2798 
2798 
27a0 
2728 
27b0 
27b8 
27c0 
27c8 
27d0 
27d8 
27e0 
27e8 
27E08 
27£B 
2808 
2808 
28108 
2818 
2820 
2828 
2830 
2838 
2840 
2848 
2850 
2858 
2860 
2868 
2870 
2878 
2888 
2888 
28308 
2898 
28a0 
2BaB 
28b8 
28b8 
28c0 
28c8 
28d0 
2848 
28ed 
2828 
PBFO 
2BFB 
2900 
2908 
2918 
2918 
2920 
2928 
2930 
2938 


= 2940 


234B 


3a,20,3e,20,32,30,20,€5, 
£f9,9d,2f,a1,9d,00,F4,06, 
3a,20,4e,55,52,20,a1,9d, 
Ye,42,45,47,49,4e,4e,2f, 
2d,45,4e,44,45,00,f4,06, 
33,208,c8,cH,2Ff,c6,d4,20, 
4e,49,43,48,54,20,44,45, 
45,49,4e,49,45,52,54,00, 
93,92, 18,820, 6514,19, 54, 
4f,52,20,a8,fe,fd,20,ed, 
09,c3,4c,45,41,52,20,2e, 
2e,20,bb,9d,41,4e,46,41, 
4e,47,20,20,c8,4f,4d,45, 
20,b4,9d,41,4e,46,2e,Fa, 
9d4,d5,20,20,c7,52,4f,bf, 
42,55,43,48,53,54,2e,20, 
20,fa,9d,ce,208,ea,aB,9d, 
Fa,Sd,c3,20,c05,49,4e,47, 
2e,36,20,fa,9d,c7,20,5a, 
55,4d,20,bb,bc,Sd,ee,Fa, 
94,c7,20,2e,2e,2e,2e,2®, 
d4,4Ff,4e,20,20,Fa,3d,c9, 
20,c5,ab,9d,45,20,88,09, 
12,Ffa,9d,30,20,2e,2e,20, 
e3,a8,20,fa,3d,39,20,c6, 
yE,52,29,31,54,41 38,47, 
41,42,45,09,Fa,39d,d7,28, 
b1,9d,3d,28e,20,d7,4f,52, 
54,20,20,fa,3d,c5,20,56, 
4£,52,439,47,945,53,20,d7, 
4F,52,54,fa,3d,d0,20,bl, 
9d,9d,2e8,20,d80,41,52,41, 
20,20,Ffa,9d,cf,20,56,4f, 
52,49,47,45,52,20,d0,'41, 
52,.211,92,35,54;,55,52,4e, 
20,d0,41,52,41,20,42,45, 
45 ,48,144,45,4e,20,20,fa, 
9d,c6,20,d0,41,52,41,20, 
46,4f,52,4d,41,54,28,09, 
£1,99,.48,95, 34,55, SE, 48, 
20,4e,5b,43,48,2e,20,al, 
80,5f,20,56,4Ff,52,49,47, 
45,20,a1,9d,F1,9d4,d3,50, 
41,43,45,20,2e,2e,2e,20, 
56,45,5€ ‚42,49, se 44,45, 
Ye ,44,95,53,20,cc ,45,45, 
S2,58,45,49,43,49,45,4e, 
09,12,ee8e,d3,54,4f,50,20, 
Ze ,de,De,2e,2e,Ze,2e,2e, 
20,d3,43,52,49,50,54,2f, 
5o,48,55,53,20,41,42,53, 
43,48,31,46,54,45,48, 09, 
12,C6,55,98,45,54,49,4f, 
48,53,54,491,53,54,45,4e, 
42,45,48,45,497,55 ,4e,47, 
fe,fe,fe,20,20,32,c6,31, 
20,c2,19,40,44,53,43,48, 
2e,2d,ad,20,c6,34,20,20, 
45,50,48,45,55,54,45,20, 
ad,9d,c6,32,20,2e,,2e,2e, 
Be,28,20,bb,4c,41,44,45, 
4e,20,20,06,35,20,2e8,20, 
bb,be,S9d,4e,c6,33,20,48, 
4F,52,49,53,2e,20,a5,94, 
53,50,52,55,4e,47,20,20, 
c6,36,20,2e,2e,Ze,2e,2e, 
20,25,84,£9,94,c6,37,20, 
o4,49,58,45,43, 54, 4E,58, 
59,20,52,45,49,47 45 Me; 
20,20,c6,38,280,d5,53,45, 
52,820,09,48,46,4F,S2,4d; 
41,54,49,4f 4e,0d,0d,f2, 
91,20,00,93,12,20,e9,a8, 
fe,fe,20,ed,89,c1 ,4e,47, 
41.482,45 ,98, 20,42,45,58; 
49,35,.49,35,48,20.53,395 
43,48,20,41,55,46,20,ba, 
ce,52,2e,30,0d,09,fc,“41, 
Ye ,538,45,49,47,45,48e,20, 
2e,2e,20,24,30,20,28,4f, 
44,2e,20,c6,37,29,0d,Fc, 
4c,41,44,45,4e,20,2e,@e, 
2e,2e,2e,20,2b,24,30,09, 
b3,a6,2e,2e,2e,2e,2e,2e, 
2e,2e,20,53,30,3a,aa,0d, 
53.4b,4f,50,49,45,52,45, 
Ye,20,2e,2e,2e,2e,2e,2e, 
2e,20,43,30,38,b3,4e,45, 
55,20,3d,30,33,41,4c,5%, 


+n 
«se 


an 


2950 
2958 
23960 
2968 
2970 
2978 
2980 
2388 
29390 
2338 
2330 
29a8 
23b® 
29b8 
29c0 
29c8 
2340 
2948 
29e® 
23eB 
PIF® 
23f8 
2300 
2a08 
Bald 
Bal8 
2a20 
Ba28 
2a30 
2a38 
Bao 
2at8 
2aS5p 
2a58 
2a60 
Bab8 
2a70 
2a78 
2a80 
2a88 
Ba90 
2a98 
2aad 
Baaß 
Bab® 
2abB 
Bac® 
2ac8 
Bado 
Pad 
Baed 
Baed 
Bafo 
2afß 
2b00 
2b98 
2b1® 
ebi8d 
eb20 
2be8 
2b30 
2b38 
2b4o 
2b48 
250 
2b58 
2b60 
2b6B 
2b70 
2b78 
?b80 
2b88 
2b90 
2b38 
2ba® 
Pba8 
2bbO 
2bbB 
Ebcd 
2bce8 
2bd® 
2bd8 
2bed 
2be8 
2bf® 
2bF8 
2c00 
2c08 


Der Plus /4 wird zur deutschen Schreibmaschine. 


b3,55,4d,42,45,4e,45,“4e, 
Ye,45,4e,20,2e,Ze,2e,de, 
2e,20,52,30,33,ce,41,4d, 
45,20,48,45,55,20,3d,30, 
33,41,4c,54,09,e9,9d,45, 
54,54,45,20,bd,F9,20,4e, 
30,3a,e9,3d,4e,41,4d,45, 
20,c9,c4,2d,89,9d,45,54, 
54,45,28;56,41,90,29, 44, 
49,45,52,45,4e,20,28,20, 
56,30,04,909,12,c2,41,43, 
4b,55,50,20,28,4e,55,52, 
20,42,45,49,20,c4,4f,50, 
50,45,4c,2d,ba,F9,9d,29, 
20,44,31,3d,30,20,09,12, 
c6,4c,4f,50,50,59,2d,d3, 
54,41,9%,55,59, 20,41 ,8} 
58,49,.49, 32,45, 48,20, 88; 
fd,e4,09,12,e9,38,56,45, 
52.,40,41,53,53,45 ,4e,£e, 
e4,3c,d3,d4,cf,d®,3e,20, 
09,0d,F2,00,93,12,20,c6, 
SE ,S2,4d,41,54 47 4s,57, 
45,49,53,55,48,47,45,4e, 
20,fd,ed,2d,c1,55,53,57, 
41,48,40,3a,0d,12,20,H4a, 
55,31,2d,30,20,92,20,c2, 
Yc;48,933,40,53,41,54,58, 
20,45,49,4e,2d,41,55,53, 
0d,12,20,43,4e,31,2d,30, 
20,92,a0,da,45,4e,54,52, 
49.45,90.,05,40,47,.20,45, 
49,4e,2d,41,55,53,0d,12, 
28,4c,4d,58,58,fd,9d,98, 
20,F6,FfB,0d,12,20,52,4d, 
58,58,fd,9d4,32,20,E7,F8, 
0d,12,20,4d,41,58,58,20, 
20,92,20,4c ,49,4e,4b,45, 
4e,20,f8,4c,5c,53,45,4e, 
04,12,20,50,4c,58,58,Fd, 
94,92,29,eb,3d,“4e,4c,Sb, 
4e,47,45,20,28,49,“4e,20, 
a1,9d,4e8,29,2d,12,20,54, 
4c,58,58,fd,9d,92,20,bb, 
9d,4c,5b,4e,47,45,20,28, 
49,4e,20,a1,9d,4e,29,0d, 
12,20,50,54,58,58,20,20, 
32,20,da,45,49,43,48,45, 
Ye,20,50,52,4f,20,c9,“4e, 
43,48,20,28,d0,49,54,43, 
48,29,0d,12,20,4c,50,58B, 
58,Ffd,9d4,92,20,31,9d,4e, 
20,50,52,4f,20,c9,4e,43, 
48,0d,12,20,48,44,58,3a, 
20,20,92,20,31,2e,20,cb, 
4F.59,35,58,45,49,40545, 
0d4,12,20,46,54,58,3a,20, 
29,92,20,31,2e,20,c6,55, 
bFf,, 58,45, 49, 40,45, 09,12; 
290,22,23,20,92,20,d3,45, 
49,54,45,4e,538,41,4B8,4c, 
20,49,4e,20,cb,4f,59,46, 
2d,20,4f ,44,2e,20,c6,55, 
bF,58,45,49,4c,45,12,20, 
4c,46,31,20,20,20,92,20, 
al,9d,4e,56,4f,52,53,43, 
48,55,42,20,28,31,30,29, 
20,404,49,54,20,c3,d2,20, 
28,31,33,29,09,12,b3,9d, 
585,45,52, 481 45,54, 54557 
Me,47,3a,Ffd,29,'c,4b,3a, 
Ye,5b,43,48,53,54,45,528, 
20,38,09,12,56,45,52,45, 
43,18, 30.41 VIHBSEN US: 
29,03,39;,53,54,45,59,45; 


52,55,48,47,20,28,44,59, 


50,20,31,29,fd,3c,ee,9d, 
3e,20,2b,20,da,45,49,43, 
48,45,4e8,20,28,45,49,4e, 
2d,41,55,53,29,3a,fe,fe, 
fd,20,92,3b,20,38,20,20, 
95,148,54,45,52,53,54,58, 
45,49,43,48,45,4e,Fd,Sb, 
20,5d,20,20,c2,52,45,49, 
54,21,52,55;43, 4694,26, 
20,21,20,28,06,45,54,54, 
44,52,55,43,4b,fe,Fd,28, 
20,29,20,20,cb,55,52,53, 


2c1® 
2c18 
2c208 
2c28 
2c3® 
2c38 
2c4H® 
2cHB 
2c59 
2c58 
2c60 
2c68 
2c79 
2c78 
2c80 
2c88 
2c30 
2c98 
2ca® 
2caB 
2ch® 
2cb8 
2cc® 
©cc8 
2cd® 
2cd8 
2ce®d 
2ceB 
ecfd 
2cfB 
2d00 
2d08 
2d1® 
2d18 
2d20 
2d28 
2430 
2d38 
2d4® 
2d4B 
2d58 
2458 
2d60 
2d68 
2d70 
2d78 
2d80 
2d88 


‚ E49 


2498 
2da® 
2eda8 
2db® 
2db8 
2dcd 
2dcd 
2dd® 
2ddd 
2de® 
2deB 
edf® 
edf8 
2ed® 
2ed8 
Zel®d 
Bel 
2e20 
Be28 
2e30 
2838 
Be4o 
2e48 
2e50 
2e58 
2e60 
2e68 
2e70 
2e78 
2eB8d 
2e88 
2e30 
2898 
Dead 
SeaB 
2eb® 
2eb8 
Becd 
2ec8 


49,56,44,52,55,43,4b,0d, 35 
3c,20,3e,20,20,d3,43,48, 83 
y9,21.,40,44,52,55, 43, 4b, 83 
fd,fd,27,20,20,20,20,48, eb 
4f,43,48,20,2f,20,54,439, “Me 
45,46,09,F2,00,933,12,20, 77 
b8,3d,45,52,46,55,4e,4b, 2 
54,49,4f ,4e,45,4e,20,fd, 26 
ed,89,c3,55,52,53,4f,52, 4d 
20,41,55,46,20,ec,a4,fS, ce 
9d,2c,20,ee,44,52,5d,43, b® 
4b,45,4e,20,20,55,4e,44, Fd 
09,12,20,2b,20,92,20,c1, da 
44 49 54 YO Ur Meta, ZE 
fe,12,20,23,20,92,28,cd, c3 
55,4c,54,49,59,4c,49,4b, 16 
41,54,49,4f ,48,12,20,2d, 16 
20,32,20,03,55,42,54,52, 1 
41,4b,54,49,4f,4e,20,20, 82 
fe,12,20,2F,20,32,20,c4, c7 
49,56,49,53,49,4Ff,4e,09, 28 
12,20,25,20,92,20,d0,52, e6 
4P.,5e;45 4854,33, 41, 54,,da 
53,09,12,20,3F,20,932,20, d4 
b8,9d,45,52,49,4e,48,41, 10 
4c,54,20,41,4e,53,45,49, c7 
47,45,4e,0d,12,20,3d,20, 52 
92,20,b8,9d,45,52,49,4e, 7b 
48,41,4c,54,20,49,4d,20, 03 
bb,41,42,4c,45,47,45,4e, 65 
09,12,20,ce,20,92,28,c1, 38 
4e8,5a,41,48,4c,20,44,45, 18 
52,20,ea,9d,53,54,45,4c, 77 
4c,45,4e,09,12,20,Fa,9d, 9a 
c5,20,92,20,b8,94,45,52, 24 
20,af,f9,0d,09,12,ea,9d, a® 
2d,a5,9d,2d,b8,9d4,55,“4e, la 
47,Fe,fe,fe,fe,09,12,20, 30 
ee,F1,9d,2b,20,32,20,b7, 66 
9d,41,44,44,49,54,49,4f, 4b 
4e,0d,12,20,ee,f1,9d,2d, a® 
20,92,29,a1,3d,4e,41,44, 5a 
44,49,54,49,4F ‚4e,0d,12, 02 
20,ee,f1,9d,23,20,92,20, o2 
41,4c,40,45,20,b7,41,44, 63 
44,49,45,52,45,4e,0d,12, el 
20,ee,f1,39d,3d,20,92,20, 15 
al,41,42,20,03,55,52,53, ee 
YyE,52,20,42,45,52,45,43, d® 
48,4e,45,4e,09,f2,00,33, 76 
12,20,bb,94,41,55,53,47, 08 
41,42,45,ed,fe,fe,09,12, 4£ 
20, C3,20,3E,20,46,4F,52, 63 
54 36,47, 55,36,35.48,34, FE 
20,fe,12,20,d6,20,92,20, 3e 
cd,45,48,52,46,41,43,48, 7e 
41,55,53,47,31, 22,45, 12, :2a 
20,c6,20,92,20,b2,9d,b3, 42 
fe,20,20,12,20,cc,20,32, ce 
20,63,9d4,2d,cb,45,54,54, 63 
45,04,12,20,cf,20,92,20, “a 
55 Me,47 .45,52,31 44,45, 19 
20,eb,9d,4e,20,20,12,20, 77 
c4,20,92,20,e82,9d,45,2d, 72 
ce,55,4d,4d,45,52,0d,12, 67 
20,059,29,30,20;,47,.45;52, b6 
41,44,95,20,eb,9d,4e, fd, ci 
20,12,20,23,20,92,20,41, 79 
42,20,eb,09,44,41,4e,41; 13 
43,48,20,d7,41,48,4c,20, Ga 
44,45,53,20,ad,9d,4d,45, “4a 
24,33, 55.49.53, 38,093,38,.33 
20,d6,20,92,20,b4,12,20, 38 
dd,20,92,20,£3,12,20,d3, “e 
20,92,20,d3,50,45,49,43, ed 
48,45,52,09,12,97,5b,48, 9b 
52,45, ,4e,44,20,44,45,52, e6 
20,64,9d,41,55,53,47,41, d® 
42,45,20,Ffe,fe,09,12,20, 06 
63,59,902,53, 47,08. 00.30,., 28 
20,38,fd,4c,49,4e,4b,53, Ba 
fd,52,45,43,48,54,53,fd, F7 
41,92)57,55,52,54, 53504, .3E 
12,20,d2,45,54,55,52,4e, 82 
20,92,Fd,12,20,c6,33,20, e6 
28,35,9d,29,20,32,Fd,12, 70 
20,d3,50,41,43,45,20,92, e9 
03,12,41,4d,20,eb,9d,4e, 70 


2edß 
2ed8 
2eed 
2ee8 
2efd 
2ef8 
2F08 
2FOB 
ef1® 
2F1B 
er20 
erf28 
2F30 
ef38 
2erf4o 
2f48 
ers® 
er58 
2F6EO 
2FEB 
2F70 
2f78 
[13:1,) 
[43:]:] 
2F90 
2F38 
2fa® 
efa8 
efbO® 
2FbB 
2FcO 
2fcB 
2FdO 
2FdB 
2fed 
2FeB 
BFFO 
erfB 
3990 
3908 
3910 
3018 
3020 
3028 
3030 
3038 
3940 
3948 
3050 
3958 
3060 


3068 
3070 
3078 
3080 
3988 
3098 
30838 
3030 
3948 
30b0 
30b8 
30c® 
30c8 
3049 
30d8 
30e® 
3028 
300 
39F8 
3108 
3108 
3110 
3118 
31208 
3128 
3130 
3138 
3140 
3148 
3150 
3158 
3168 
3168 
3178 
3178 


45,4e,44,45,20,209,fe,fe, f6 
fe,fe,fe,29,12,20,06,20, 9c 
e0,fe,92,20,bl,eb,41,55, 47 
46,20,6b4,0d4,12,20,d0,20, 6e 
20,fe,32,20,b1,eb,41,55, 47 
53,4452555,43,4b, 45, Ne fh 
0d,12,20,c3,20,20,fe,32, c4 
00,66,34,41,55,53;47.,41, 58 
42,45, 80,45, 48,52,5%4, 24, 8% 
£f3,0d,12,20,f1,9d,d0,29, ed 
92,20,01,55,53,44,52,55)..88 
43,4b,20,4f ,48,4e,45,20, eB 
dS, 4B,54,45,52,40,52,45, 53 
43,48,55,4e,47,04,09,f2, 53 
08,fe,20,cf,ce,80,00,da, 48 
45,49,4c,45,08,46,40,45, c4 
58,49,42,4c,45,53,00,c5, 33 
419,48, 47,47 4E, 95 NEUSS PR 
4c,44,00,53,45,54,53,00, 08 
d4,41,42,098,40,56,53,43, 4% 
48,45,48,00,54,52,45,49, 4 
43,48,00,9d,4d,4Ff,44,55, “4c 
53,00,c5,4e,54,456,45,52, ca 
Y4e,45,4e,00,c6,.49,4c,45, da 
Ye,41,4d,45,00,49,48e,46, d“4 
5d,47,00,d3,55,43,48,00, 9e 
c1,55,53,47,41,42,45,080, bc 
45,52,45,49,43,4B,00,4c, 9 
45,45,52,08,d3,c3,d2,c9, 6a 
dd,d4,2f,d8,cc,d5,d3,20, 85 
41,42,53, 1413,48, 41 30,5%, 88 
45,4e,3F,00,4e,5b,43,48, 24 
53,54,45,00,c6,5d,4c,4c, ad 
2d,20,c6,49,4c,45,08,c2, ef 
43,40,44,33,43,8;49,58, 0 
4d,00,56,4f,52,48,45,52, Si 
47445, 38,45, 4e,44,45,52, 98 
00,46,45,53,54,45,53,00, Be 
d3,50,41,4c,54,45,4e,20, dS5 
d2,45,43,48,4e,00,c5,52, “48 
47,45,42, 4e,49,53,008,cc, 21 
41,559,46,57,45,52,4b,08, 19 
d4,45,58,54,00,9d4,45,4e, ed 
44 ,45,00,46,22,52.,48d,41, c2 
54,49,45,52,00,53,50,45, b7 
49,43,48,45,52,0080,00,82, d93 
c6,c5,c8,cc,c5,d2,84,00, 74 
YF,44,2e,08,c7,45,52,5b, bl 
54,08,cd,41,54,52,49,58, d2 
2d,88,3c,d2,c5,d4,d5,d2, 8b 
ce,3e,800,c5,52,53,41,54, b7 
5a3,00,c2,45,46,45,48,4c, d3 
00,4b,45,49,4e ,45,208,57, B4 
45,49,54,45,52, 45,4e,00, 66 
58.:45539,99,53,.53. 45,52, 6Q 
2d,d7,45,52,54,20,28,30, 76 
2d,32,35,35,29,3£,20,00, 05 
c4,49,53,4b,00,c4,45,5a, aa 
49,4d,41,4c,00,43,45,49, ib 
54,45,00,da,41,48,4c,00, 7b 
20,82,da,55,52,5d,43,4b, 10 
©0,40,439,9%, 60, 90,09,43,..98 
c3,3e,84,00,c5,d3,c3,00, bd 
94,45,52,90,45,47,52,49, bI 
46,46,00,d3,48,49,46,54, 1£ 
2f,00,d7,45,49,54,45,52, a9 
45,20,c9,48,46,4f. 52,44, 96 
41,54,49,4f,4e,45,4e,20, le 
4d,49,54,20,3c,d2,c5,d4, 93 
dS,d2,ce,3e,88,c4,52,55, cc 
43,4b,45,52,00,c6,cf,d2, 23 
cd,c1,d4,2d,c6,c5,c8,cc, af 
c5,d2,00,c1,4e,57,45,49, 26 
53,55,4e,47,00,4c,49,4e, b4 
4b,45,52,00,52,45,43,48, 60 
54,45,52,00,92;41 38 43. EB 
00,9d4,45,4e,00,c3,54,52, 9b 
4c,2f,08,c80,c0,c0,c0,c®, Sd 
cB,c8,c0,c0,c0,c0,c0,c0d, 08 
c0,c0,c0,c0,c0,c0,c8,cd, 88 
c0,c0,c0,c0,c8,c0,c®,c®d, ®8 
c8,c0,c0,c0,c8,c0,c®,cd, 08 
c0,c0,c0,00,c4,49,52,45, 47 
43,54,4f,52,59,00,20,20, “45 
00,20,20,20,20,00,00,00, 00 
00,00,00,00,00,00,00,00, 28 


Januar/88 GUY 57 


er Spieler übernimmt 
die Rolle eines profes- 
sionellen Softwarepro- 
duzenten. Dabei ist vor 


allem Marktstrategie, aber auch etwas 
Glück gefragt. Spielestände lassen sich 
abspeichern — die Karriere kann also 
beliebig fortgesetzt werden. Im we- 
sentlichen besteht das Spiel aus zwei 
Phasen: der Editierphase, in der Ent- 
scheidungen getroffen werden bezie- 
hungsweise die Marktstrategie festge- 


System: C64 

Art: Spiel 

Sprache: Basic 

Programmname: Softwaremanager 


10 
Bo 
38 


35 
40 


42 


44 


poke 54272,120:poke 54272+1,30: 
poke 54272+5,18:poke S4272+6,222: 


poke 54272+24,8 16788 
open 14,8,15 119056 
poke 53280,11:poke 53281,11:print 
"Lalc]t 32634 
for a=1l to 2 3742 


print "Cblk] [Crvs, 3spaces,off, 
2spaces, rvs,3spaces,off,‚2spaces, 
rvs, 3spaces,off ,2spaces,rvs, 
3spaces,off ‚2spaces,rvs, 3spaces, 
off ‚2spaces,rvs,3spaces,off, 
Espaces,rvs, 3spaces, off ‚2spaces, 
rvs 3spaces,off]" 312845 
print "Cblk] [rvs] Q Loff, 
@spaces,rvs] O [off ‚2spaces,rvs] 
O Coff ‚2spaces,rvs) O Loff, 
®spaces,rvs] Q [off ‚2spaces,rvs] 
Q Coff ‚2spaces,rvs) Q [off, 
Espaces,rvs) Q Loff)” 
print "Cblk] [Crvs] B Loff, 
2spaces,rvs) B [off ‚2spaces,rvs]) 
B Coff ‚2spaces,rvs] B Coff, 
2spaces,rvs] B [off ‚2spaces,rvs] 
B Coff ,2spaces,rvs] B [off, 


13618 


Espaces,rvs] B Loff)"” 33355 
if a=1 then print "C15down]” 
12005 
next 1138 
print "Chome, wht]” 23371 


read a$:if a$-"-1” then print " 
[left] ”:goto 390 32269 
if a$5=-"3”" then print ”"Ccbm 5J”;: 
goto 90 21933 


if a$=-"1" then print "Cleft) 
[rvs) Coff,left] ":goto 98 2283 
if a$=-"-” then print "Lleft, 
2spaces,rvs) [Loff]"”;:goto 90 
J2210 
if a$-"2” then print ”[Cleft] 
Chome]":goto 38 11961 
if a$-"4” then print ”"Luht]”;: 


goto 90 11887 


print ”"Cleft] [Cleft)"a$"Crvs) 
Coff]"; J1206 
poke 54272+4,33:for a=1 to 30: 
next :poke 54272+4,0 13955 
goto 90 3443 
data 1,1,1,1,1,1,1,1,,7,7,7,5,% 
A Fa N En re Tan a Be! 
17122 
DRTR ne rn ur 
8,8, 7,042, 35218 


664 LISTING 


Spiele programmieren ist eine 
Sache. Sie zu verkaufen eine 
ganz andere. Wie das in der 
Realität aussieht, zeigt die 

Simulation „Softwaremanager“. 


legt wird, und der Berechnungsphase. 
Alle Entscheidungen, die in der Edi- 
tierphase getroffen werden, gelten je- 
weils für den nächsten Monat, der mit 


115 
120 


125 


158 

300 
| 318 
320 


490 


418 
5008 
5ıo 


528 
5308 
540 
558 
568 
570 


575 
578 
588 
599 
5935 
597 
500 


610 
620 
6308 
E40 
659 


668 
6708 
6808 
699 
708 
710 
720 
725 
738 
890 
300 


918 


data 3,2,1,1,-,-,f,0r,a,n,k,-,k,r, 
i,u,,@8,0n,*,P,7r,2,8,8,8,n,£,3,&, 
Er, 17349 
BEER AI LEI 1, Se u 
1,9,n,7,u,n,d,-,P,r,0,g,r,a,m,m,- 
16978 
RER II ei DD 
£E,r,a,n,k,-,k,r,i,s,t,e,n 16593 
data -1 23417 
poke 158,0 1870 
get wS:iFf wS=""” then 318 31642 


print "Cclr]”:poke 53288,0:poke 
53281,08 12571 
dim pq(49) , entw(C4®),typ(c49), 
vera(4ß),prgt(40),cp(40),klpC40), 
d1pC4H®) 34485 
dim kk(49),dkC4H®),kz(48) ,dz2c4HB), 
nameS(49), vm(498),rk(40) 15267 
typ$SC1)=-"baller-/actionspiel"” 


13850 
typ$(2)="geschicklichkeitsspiel"” 
12959 
typ$(C3)="sportspiel” J1846 
typ$(4)="graphikadventure” 12268 
typ$(5)="textadventure"” J2222 
typ$(6)="rollenspiel" 12267 
typ$(7)="simulation” 11875 
typ$(8)=-"Ffilm-/automatenspiel” 
32993 
typ$(9)="spielesammlung” 32384 
typ$(1®8)="indiziert"” 11839 
prgt$Ct1)=" fast design’” 12237 
prgt$t2)="'"deluxe design’" J2221 
prgtsc3)="-” 11301 
entz5(90)="-" 21198 
entz$(1)="hoechstens 1 monat” 
12678 
entz$(2)="hoechstens 2 monate" 
12884 
entz$(3)="hosechstens 3 monate” 
12989 
entz$(4)="hoechstens 4 monate” 
12821 
entz$(5)="hoschstens 5 monate” 
12917 
entz$(6)="keine beschraenkung" 
13021 
vera$(1)=-"gering” 231341 
vera$(2)="mittel” 31399 
vera$(3)="hoch” 21328 
veraS(4)="exclusiv" J1824 
cp$(1)="kein kopierschutz” 12187 
ep$C2)=""’miniprotect ’" 12093 
cp$(3)=""anticrack'"” 12051 
cp$C4Y)=""disklock'"” 32073 
cp$(5)=-"'"superprotect'" 32111 
spiel=®:1la-10000:gk=-100008 1J1834 


wl=-int (10089+rnd (8)*10000):w2= 

int (5000®+rnd (0)*500008):wa=®d.B 
35348 

w3=int (188800+rnd (0)*3908000) 
12305 


MIT STRATEGIE ZUM ZIEL 


der Auswahl der Berechnungsphase 
(„Weiter“) beginnt. 

Ziel des Spiels ist es, in möglichst kur- 
zer Zeit zum „Elite Manager“ aufzu- 


steigen. 


Doch die Konkurrenz ist groß, 


das Glück läßt einen manchmal im 


Stich. 


Wer also unklug kalkuliert, wird seine 
Karriere bald mit einem Berg von 
Schulden beenden müssen. 


(F. Kristen) 


920 
9330 
3508 
1090 
1018 
10208 


12830 


1048 


1058 
1068 


1078 


1080 


1085 


1090 
1095 


11008 
2000 


2010 


2015 
2017 


2o18 


2019 
20208 


2925 
2027 


| 2030 
2035 


2040 
2100 
2102 


dp"int (40+rnd (8)5*50)/108 12616 
kp-int (28+rnd (8)*40)/108 12527 
gosub 10989 3569 


poke 53280,6:poke 53281,6:print " 
Lwht]” 2182 
print "[clr,2down, 7spaces)>>> 
software manager <<” 2351 
print "C2down, 13spaces] 
eingabemenu:” 221 
print "[2down,Sspaces) 
(1)....aktueller spielstand” 
1348 

print "Cdown,Sspaces)(2),...neues 


produkt starten” 


print "Cdown,Sspaces] 
[BI produkte bearbeiten” 
22881 
print "[Cdown, Sspaces] 
a PEN rss. Werbung” 
33534 
print "[down, Sspaces](5)...spiel 
speichern/laden” 23281 
print "[down, Sspaces] 
2 weiter” 
13802 
print "[2down, 9Sspaces)(spielende 
mit '-'!)” 32739 
get a$:if a$-"-" then 15000 J1656 


if a$<”1” or aS>"”6" then 1098 
J212%4 
a=-val (a$):on a goto 2000,3008, 
4000, 5999,5000, 7008 12956 
poke 53280,5:poke 53281,5:print 
Cclr ,3down, Bspaces]laktueller 
spielstand:” 
print "C[3down, 6spaces) 
gesamtkapital: [Cblk]"gk”"CLwhtIdm” 
33011 
print "Cdown, Espaces]software 
sterne: [blk)"”fq”Lwht2" 1253 
if fgq>9 then print "[down, 
6spaces]titel: [blklJelite manager‘ 
Cwht3”:goto 2029 1396 


234617 


if fgq>4 then print ”[down, 
6spaces]ltitel: [blk]star manager 
CwhtJ”:goto 2020 J365% 
print "Cdown, 6spaces]ltitel: Cb1lk] 
software manager[Lwht]” 339006 
print "C2down, 6spaces] 
I. verkaufsuebersicht"”" 
134902 
print "Cdown, 6spaces) 
(2). ssrr0rs.,.produktdaten” 13545 
print ”"[Cdown, 6spaces] 


CHI nn zurueck” 13667 
get w$:if wS="" then 20839 21726 


w-val (wS):if wei or w3 then 
2030 J240 
on w goto 2100,2500,1008 3135% 
if spiel>® then 2108 21528 


print "Cclr,18downles ist zur 
zeit kein spiel auf dem markt" 


„Em 


anuar/88 
WERE, 


2104 
2106 
2108 
2119 


2120 
2122 


2125 
2130 
2135 
2140 
214s 
2147 
2150 


2160 
2170 
2180 
2190 
2195 
2198 
2500 
2518 


2520 


2530 
2540 


8550 
2560 
2570 
2580 
2590 
26008 
8610 


2615 
2617 
2620 
2640 
2650 
86608 
2670 
8675 


2680 


2685 
26908 
8695 
2708 
2710 


2720 


2730 
2740 


3008 
3001 


3902 
3903 


14760 
for a"1 to 38:poke 54272+4,33: 
poke 54272+4,0:next :For a=1 to 


2008:next 34525 
goto 2900 3561 
print "Cclr,11spaces] 

verkaufsuebersicht:" 12601 
4-1 1370 
print "C2down]"name$Ci)":" 31654 


if entz(i)>® then print "”[down] 
entwicklungszeit in monaten: 
Cblk]”"entz(i)"Lwht]":goto 2147 
16284 
print "[Cdownlauf dem markt:Cb1lkJ” 
vmCi)"CwhtlJmonatle)" 13096 
print "Cdownldisketten: [blkJ"” 
dz(i)"Lwht]" 12334 
print "(auf lager:[blk2"dkti)" 
Lwht2)" 31997 
print "kassetten: [Cblk]"kzli)" 
Luht]" 31977 


print "Cauf lager:[blkI"kkli)” 
CuwhtJ)” 22128 
i=-i+1:if i>spiel then 21992 12092 
print "[down,rvs, 18spaces] (m)enu 
(Sspaces](w)eiter[1dspaces, off)" 
12603 
get wS:if w$="" then 2160 21838 
if w$="m” then goto 2000 21717 
goto 2128 1581 


print "Cdowun,rvs, 16spaces]taste 

C18spaces,off]” 12259 
get wS:if wS="" then 2195 317434 
goto 2000 1561 
if spiel>® then 25408 21440 


print "[clr,18downles ist zur 
zeit kein spiel auf dem markt” 
14768 
for a"1 to 30:poke 54272+4,33: 
poke 54272+4,®:next :Ffor a=i to 
20008:next 34525 
goto 2000 1561 


print "Cclr]produktdaten von 
welchem spiel(®=menu): ":print 
14827 
for a=1 to spiel 131183 


if a=21 then print "[home}" 11085 
if a>28 then print spc(28); 11571 
if a<18 then print " "; 21314 


print a; "Cblk]”name$(a)”"Cwht]” 
21701 
next 3138 


print "Chome, 23down, 14spaces] 


nummer: ";:zl=-?:gosub 20000:n$- 

d$: print 15094 
n=val (n$) 3701 
if n=® then 2099 2992 


if n<1i or n?spiel then print " 
Cup]" spc(22)"[C2spaces]”:goto 
2610 33157 


print "[clr,down, 18spaces]Idaten 
des produkts:” J2462 


print "Cdown, 10spaces, 19cbm t]J” 
13178 
print "Cdown] name: [Cblk]”; 
name$(n)"CLwht]” 32345 
print "Cdown) programmart: [Cbik]” 
;typSCttyptn))"Lwht]” 12998 


print "[Cdown] programmierer: 
EblkJ";prgt$Cprgt(n))”Lwht]” 
13937 
print "[down] entwicklungszeit: 
Cblk]" ;entz$(entz(n))"Lwht]” 
34158 
Cblk]”; 
13506 


print "Cdown]) verpackung: 
vera$(vera(n))"[Lwht]” 
print "Cdown] anzahl/disks: Cblk] 
”;dkln)"Lwht]” 13020 
print ”Cdown) anzahl/kassetten: 
EblkJ"”";kkCn)"Lwht]” 33314 
print "Cdown] kopierschutz: Cblk] 
"cp$Ccp(n))"Lwht]” 12858 
print "Cdown] ladenpreis 
(diskette): [CblkJ”;dip(n); "Lwht] 
dm" 33711 
print "Cdown] ladenpreis 
(kassette): [blk]”;klp(Cn); "Cwht] 
dm” 33959 


get a$:if a$="” then 2730 11698 
goto 25408 3613 
if spieli<48d then 3009 J1429 


print "Ccolr,Sdownlstarten eines 
weiteren produkts nicht” 314587 

print "moeglich.alle 
produktionskapazitaeten” 13698 


print "sind ausgelastet .[2spaces] 
vor[2spaces]starten eines” 14068 


3140 


3158 


3160 


3170 


3180 
3190 


3200 
3205 


3210 
3220 


3230 
3249 
3250 
3255 
32608 
3265 
3270 


3280 
3230 


3300 
3310 
3320 
3338 
3349 
3358 
3368 


KH euere 


print "neuen produkts muss 
C2spaces]zuerst ein altes” 
print "herausgenommen werden.": 

For a=1 to 38:poke 54276,33:poke 


33469 


54276,8:next 25127 
print "C[Cdoun,rvs,16spaces]taste 


C16spaces, off)” 32058 
get w$:if wS="" then 39807 31831 
goto 10908 1559 
print ”"Cclr,5down, 7spaces]lneues 
produkt starten: ” 330853 
print "C[2down, 5spaces) 
(1.2.4, ..neues produkt” 33639 
print "Cdown,Sspaces] 
(Bliceeererr. . einkaufen” 13204 
print "Cdown, Sspaces) 
Merusuneneenr..ZUFUBcK" 13461 
get a$:if a$<”"1” or a$>”"3" then 


3940 12351 
a=-val (a$):on a goto 3100,3800, 
1010 11962 
if lka=-® and lda=® then print ” 
Cclr ,Sdown)keine 
leerdisketten/kassetten 
vorhanden! ” 16278 
if lka=-® and lda=® then For a=1 
to 98:poke 54272+4,33:poke 54272+ 
4,8:next :goto 3008 15732 
spiel=-spiel+i1 31228 
klp(spiel)-8:dlp(spiel)-®: 
kk(spiel)"=®:dk(spiel)=-®:kz(spiel) 
-d:dz(spiel)-® 16764 
vm(Cspiel)=-® 31853 
print "Cclr,3down, Sspaces)welche 
spielekategorie:" 33532 
print "[2down,Sspaces] 
(1),.....baller-/actionspiel"” 
13792 
print "Cdown, Sspaces] 
(2). .geschicklichkeitsspiel"” 
33308 
print "Cdown,Sspaces] 
CI): a inne nennen REED" 
33447 
print "[down, Sspaces)] 
(Y)lı.......graphikadventure” 
22846 
print "[down,Sspaces]) 
...‚textadventure” 
13409 
print "[Cdown,Sspaces] 
(E)iserereers..,Follenspiel” 


print ”"Cdown, Sspaces) n 
4 


‚‚simulation” 
13356 

print "[Cdown,Sspaces](B)....film- 

/automatenspiel"” 23352 


get a$:if a$<”"1” or a$>"B” then 
3199 12277 
typ(spiel)=val (a$) 21432 


li-®:if typ(spiel)-B then li=int 
(200000+rnd (0)*2000890) 234434 
print "Cclr,6down, 10spacesIname 
des spiels>" 12636 
print "C2down,Sright]”; :z1=1S: 
gosub 20000: name$(spiel)-d$: print 
34917 
print "[Cclr ,4down, Sspaces)lwelches 
programmiererteam ?” 133719 
print "C3down, Sspacesles stehen 
zur verfuegung:” 33247 
print "C[2down,Sspaces](1),....das 
team 'fast design'’" 13545 
print "Cdown, 13spaces]Cbillig)" 
J1510 
print "C2down,Sspaces](2)...das 
team 'deluxe design'” 33559 
print "Cdown, ilspaces](teurer, 
aber sehr gut)" 22441 


get a$:if a$<”1” or a$>"2” then 
3270 12478 
prgt(spiel)-val (a$) 11625 
print "[clr ,3down, 6spaces) 
enwicklungszeit ?"” 33158 
print "[2down, 65spaces] 
(1)....hoechstens 1 monat” 12843 
print "[down, 6spaces] 
(2)...hoechstens 2 monate” 13368 
print "E[down, 6spaces] 
(3)...hoechstens 3 monate" 13376 
print "[down, 5spaces] 

(4). ..hoechstens 4 monate" 13384 
print "[down, 6spaces] 
(5)...hoechstens 5 monate” 13392 


print ”"[down,6spaces](6),..keine 
beschraenkung"” 33401 
get a$:if a$<”"1”" or a$>"7” then 


3558 


3568 


35708 
3588 
3585 
3590 
3608 
3618 
3612 


3615 
36298 


3625 
3627 


3631 
3632 


3635 
3637 


za PP En Zn 2 4 


3360 12467 
entz(spiel)=val (a$) 11706 
pk"=prgt(spiel)*entz(spiel)*18000 


print "Cclr,3down, Sspaces] en 
verpackungsaufwand ?"” 12797 
print "C2down , 4spaces] 

(I. ene rear... guring” 13186 


print "[down,6spaces](anleitung 


als handzettel etc.)"” 23269 
print "[Cdown,4spaces] 
(B)osseorenennee..Mmittal” 13030 
print "[down,6spaces] 
(anleitunsheft,, schoene 

schachtel)” 13302 
print "[down, 4spaces] 

BIe rear erserereee. Mach” 13130 


print "Cdown, 6spacesJ(Chandbuch, 


aufwendiges design)” 13648 
print "C[down,4spaces] 
H)eserurrennn..BXclusiv” 13208 


print "Cdown, 6spaces] 

(zusaetzliche beilagen etc.)" 
12867 

get a$:if a$<c"1” or a$>”4" then 


3438 22384 
vera(spiel)-val (a$) 31497 
print "Cclr,3down, 189spaces] 

auflagenhoshe:”" 12103 


print "C[2downlwieviele 
diskettenkopien sollen in ” 


13880 
print "Cdownlden handel ?" 11356 
ag-"" 1390 


print "[down, Sspaces)>"; :z1l=1®: 
gosub 20000:a$-d$: print 33196 
dk(spiel)=val (a$):ıF dk(lspiel)> 
lda then print "Lup]"” spce(t11)"” 


C18spaces, 2up]”:goto 3488 34552 

as-"" 1398 
print "C2downlund wieviele 
kassetten ?" 12934 


print "Cdown, Sspaces)>"; :z1l=18: 
gosub 20000: a$=d$: print 13196 
kk(spiel)=val (a$):if kk(lspiel)> 
lka then print "Cup]” spc(11)" 


[18dspaces, Z2up]":goto 359898 34670 
vk=-veralspiel)*(Cdk(spiel)+ 
kk(spiel))*4 13664 


if kk(spiel)-® and dk(spiel)-® 
then 3518 33311 
goto 3528 1599 
print "C2down, 4spacesldoch kein 
neues produkt ???":for a=1 to 


2508:next :spiel=spiel-1 15439 
goto 1008 1559 
print "[clr,4down, 6spaces] 
kopierschutz ?” 12202 
print "[2down, 2spaces] 
(1I.crres...Kkein kopierschutz" 
13435 
print "Cdown, 2spaces] 
(2)....'miniprotect' (leicht)” 
33371 
print "Cdown,2spaces] 
(3)......*'anticrack’ (mittel)” 
337593 


print "Cdown,2spaces] 

(H).......*'disklock’ (schwer)” 
13938 

print "Cdown, 2spaces] 

(5). '"superprotect '(99%sicher)"” 


13233 
get a$:if a$<"1”" or a$>”S5” then 
3570 32523 
cp(spiel)=val (a$) 11162 
sk=-cp(spiel)*30000 11548 
print "C[Cclr,5down, 8spaces) 
verkaufspreis:” 12435 


print "[3down, 2spaceslwieviel 
soll das spiel im laden” 13428 
print "Cdown, 2Zspaces]kosten (in 


dm) ?” 12083 
dlp(spiel)-®:klp(spiel)-® 12250 
if dk(spiel)=® then 3631 21748 


print ”"[2down] auf diskette >";: 
zl-3:gosub 28000: a$=d$: print 
13462 
dip(spiel)-val (a$) 231398 
if dlp(spiel)<=-8 then print "CLup] 
" spc(15)"[3spaces, 3up]”:goto 
3620 13643 
if kk(spiel)=-® then 3649 21634 
print "C2down] auf kassette >”;: 
zl-3:gosub 298089: 3$-d$: print 
33317 
klp(spiel)=val (a$) 31397 
if klp(spiel)<=-® then print "Lup] 
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” 


3640 
3650 
3660 
3678 
3675 
3680 
3685 
3690 
3695 
3708 
3718 


3715 
3720 
3788 
3782 
3784 
3785 
3786 
3787 


3783 
37398 
3791 
3792 
3793 
3795 


3796 
3797 
3800 


3818 
3812 
3814 
3815 


3817 
3819 
3820 
3830 
3840 
3842 


3845 
3850 


3860 
3870 
3872 
3888 
4000 
4901 
4002 
4003 


60 KUM Tanuar/88 
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” spc(15)"[C3spaces, 3up)”:goto 
3632 13697 
print "Cclr,down, 3spaces)daten 
des neuen produkts:” 12971 
print "Cdown, 3spaces, 25cbm t]"” 


13605 
print "Cdown) name: ”; 
name$(spiel) 12597 
print "Cdown]) programmart: "; 
typSltyp(spiel)) 12965 
print "Cdown] programmierer: "; 
prgt$Cprgt(spiel)) 13968 
print "Cdown] entwicklungszeit: " 
‚entz$(entz(spiel)) 1 34241 
print "Cdown] verpackung: "; 
vera$(vera(spiel)) 13353 
print "Cdown] anzahl/disks: ”; 
dk(spiel) 13218 
print "Cdown] anzahl/kassetten: " 
ikk(spiel) 33415 
print "Cdown] kopierschutz: ”; 
ep$Ccp(spiel)) 12986 


print "Cdown) ladenpreis 
(diskette): ";dip(spiel);” dm” 
13854 


print "Cdown] ladenpreis 
Ckassette): ";klp(spiel);”" dm” 
13878 
pg(spiel)=entz(spiel)*10+ 
prgt(spiel)*10+vera(spiel)*5 
14814 
get a$:if a$="" then 3780 31513 
print "[clr, 2down, 7spaceslkosten 


des neuen produkts:” 33492 
if typ(spiel)-B then print "” 
C2down, 3spaces]lizenskosten 
[7spaces): ";li:goto 3786 15278 
print 3153 
print "Cdown, 3spaces) 
programmiererkosten: ";pk 12940 
print "[down, 3spaces) 
verpackungskosten[2spaces]: ";vk 

13272 
print "Cdown, 3spaces] 
kopierschutzkosten : ";sk 22941 
print "C[C2down, 6spaces) 
(plroduktion starten" 33188 
print "[Cdown, 6spaces] 
(nleueingabe” 31456 


get wS:if w$<>"p" and w$<>”n” 
then 37392 13323 
if w$="n” then spiel-spiel-l1:goto 
3008 13074 
gk=gk-pk-vk-sk-li:lda=lda- 
dk(spiel):lka=-lka-kk(spiel) 15327 


if spiel=48 then 1008 21324 
goto 3090 1563 
print "Cclr ,‚3down, 2spaces] 
einkaufen von 
disketten/kassetten: ” 14257 
print "C2spaces, 34cbm t]” 34749 


print "[C4spaces)vorrat:[blk]"1da” 


Cuhtldisketten[b1lk]J” 33042 
print spce(11)1lka”Cwhtlkassstten” 
11893 


print "Cdown,4spaces) 
leerdiskettenpreis: [blkJ"dp” 


LuhtIdm” 12879 
print "[4spaces] 
leerkassettenpreis: [blkJ”kp” 
LwhtJdm” 129391 
as-"" 1390 
print "C2down, 3spacesJwieviele 
lseerdisketten ?"” 12985 


print "[down, 8spaces)>";:z1i=10: 
gosub 20000: a8-d8: print 13272 
lda=-lda+tval (a$):gk=-gk-int ( val 
Ca$)*dp) 13010 
if val (a$S)<100 and val (a$)>® 


then gk=gk-5 13052 

as-"" 1390 

print "C3down, 3spacesJwieviele 
leerkassetten ?"” 12987 


print "Cdown, Bspaces]>";:z1-1®: 
gosub 20000: a$-d$: print 13272 
lka=-lkatval (a$):gk=gk-int ( val 
(a$)*kp) 13105 
if val (a$)<108 and val (a$)>0 


then gk“gk-5 33052 
goto 3908 1563 
if spiel>® then “40085 31472 


print "Cclr,Sdownles ist kein 
produkt zum bearbeiten da I!” 
14303 
for a=l to 38:poke 54272+4,33: 
poke 54272+4,8:next 13583 
for a=1 to 20800:next :goto 1908 
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4005 
4010 
4020 
4039 
4940 
4050 
4055 
4068 
4078 
41988 


4118 
4120 


4125 
4138 
4135 
4148 
4159 


4155 
4157 
4168 


4170 
4180 
4190 
4200 
4210 
4220 
4230 
4235 
4237 
4238 
4239 
42a4o 
4300 
4301 
4382 
4303 


4304 


4385 
4306 
4308 
4309 


4310 


4311 
4312 


4315 
4320 
4325 
4330 
4332 


4334 
4335 
4340 


4345 
4350 


4 We Ah 


64 LISTINE 


21435 
print "Cclr,Sddwn, 7spaces] 
produkte bearbeiten: ” 
print "C2down, Sspaces) 


12968 


(Mirrsrss..neue auflage” 33453 
print "Cdown, Sspaces] 
(2).......spielesammlung" 33246 
print "Cdown,Sspaces](3)...spiel 
herausnehmen” 13088 
print "C[down, Sspaces] 
(Y).......preisaenderung" 13007 
print "Cdown, Sspaces] 
(5) usa» „ainkaufen” 23210 
print "Cdown, Sspaces] 
[Bern + zurueck” 33467 


get a$:if a$<"1” or a$>"6" then 
4060 J2426 
a=val (a$):on a goto “4100,4300, 
4600, 4300,4800, 1000 13103 
print "CclrJwelches spiel soll 
neu aufgelegt werden: " 14597 
for a=1 to spiel 21183 
if a=21 then print "”[Chome]"” 11085 
if a5208 then print spce(28); 11571 
if a<18 then print ” "; 31314 


print a; "CblkJ"name$(Ca)”Cwht)” 
31781 
next 23138 
print ”Chome, 23doun, 14spaces] 
nummer: ";:zl=2:gosub 29098:n5= 
d$:print 15094 
n=val (n$) 1701 
if n=® then 4000 1966 


if nei or mspiel then print ” 
Lup]” spe(22)”[2spaces)”:goto 
4159 33221 
print "[Cclr,2down, spaces) 
neuauflage von [blkJ"name$(n)" 
Cwht]:" 33230 
print "CHdown, 3spacesJwieviele 
disketten: ";:zl=1d:gosub 20000: 
da=val (d$):print 15027 
if da>lda then print "[Lup)"” spce( 
23)"C18spaces,5up]":goto 4189 
13263 
print "C2down, 3spaces]wieviele 
kassetten:”;:zl=-10:gosub 20008: 
ka-val (d$):print J4642 
if ka>lka then print "Lup)” spce( 
23)"C18spaces, 3up)":goto 4298 
13897 


lka-lka-ka:lda=-lda-da 22253 

kk(in)=kk{n)+ka:dk(n)=dk(in)+da 
33025 

vk=-vera(n)*Ckarda)*4 12187 


gk=gk-vk 31892 
if klp(in)=® and kk(n)>® then 


klptn)=dlp(n) 313334 


if dlpfn)=® and dk(n)>® then 
dlp(in)=klp(n) 13278 
goto 498080 3565 


if spiel>?>3 then 4308 
print "[clr,9Sdownlfuer eine 
spielesammlung braucht man 
C2spaces)4"” 234419 
print "produkte,soviel sind aber 
nicht auf dem” 34677 
print "markt.":Ffor a=l to 30:poke 
54272+4,33:poke 54272+4,0:next 
133732 
print ”"Cdown,rvs,15spaces)taste 
[19spaces,rvs]" 12325 
get w$:if wS="" then 4305 31759 
goto 4000 1565 
if lda>® or lka?® then 4312 11627 
print "[clr, 18down]lkeine 
leerdisketten/kassetten 
vorhanden!” 24943 
For a=-1 to 30:poke 54272+4,33: 
poke S4272+4,8:next :for a1 to 
2008:next 24525 
goto 4908 1565 
print "[Cclr] welche spiele sollen 
genommen werden: Cdown]" 13972 
for a=-1 to spiel 31183 
if a=21 then print "Chome]" J1085 
if a>28 then print spc(20); 21571 


if a<18 then print "” "; 31314 
if typ(la)=9 then print a; 
"(sammlung)":goto 4349 
if typla)=18 then print a; 
"Cindiziert)”:goto 4349 33380 
print a; "Cblk3"name$(a)”"Lwht]" 
11701 
31308 
J822 


23104 


next 
For i=-1 to 4 
print "Chome ,23down, 1l1spaces] 


4355 
4357 
4360 


4361 


4362 
4363 
4364 


4365 
4366 


4367 
43693 
4370 
4388 
4385 


4399 
4498 


4410 
4420 
4438 
4435 
4437 
4439 
4440 
4442 


4444 


4446 
4448 
4450 
4452 


4454 


4456 
4458 


4460 
4462 
4464 
4466 
4468 
4470 
4472 
4474 
4476 
4478 
4488 


44B2 
4484 


44B6 
4488 
4499 
4492 


4494 


4496 


nummer”i”: 
-d$: print 
n=val (n3) 
if n=Ö then 4088 
if n<li or n’>spiel then print " 


Lup]” spe(22)’T2spaces)" :goto 
4350 13253 
if typ(n)=9 or typtn)=18 or 
entz(n)>® then print "[up]” spet 
e2)”"C2spaces]":goto 4350 159007 
if ij=-1 then 4369 


";;:zi=2:gosub 20000:n$ 
35474 


am-d 

For k=1 to i-l1:if m=as(k) then am 
-1 212019 
next 1139 
if am“-1 then print "Lup]” spct 


22)"C2spaces)":goto 4359 12267 
if typln)=9 then print ”Lup)” 
spce(22)"C2spaces]":goto 4358 


as(ti)-n 
print "£Lup]” spce(22)”"[2spaces]” 


next 
am-® 
for k=-1 to 3 
if as(k)>as(k+1) then zv=asck): 
asck)=-astk+tl1):astk+tl)=zv:am=1 


next 
if am-1 then 4385 
print "Lelr, 6down, Sspaces]name 
der spielesammlung: ” 13457 
print *"L2down,Sright)”; :zl=15: 
gosub 20008:name$=d$: print 14507 
print "Celr,3down, Sspaces] 
verpackungsaufwand ?” 
print "[2down,4spaces) 
EIN BEER TBING” 13106 
print "[down, 6spaces] (anleitung 
als handzettel etc.)"” 
print "[douwn, 4spaces] 
(B)eronseoesrr en. .mittel” 
print "Cdown,6spaces] 
(anleitunsheft schoene 


22797 


schachtel)” 
print "[down,4spaces]) 
Miraeaeenunnenrre, hoch” 13130 


print "[down,6Sspaces](Chandbuch, 
aufwendiges design)" 13648 
print "Cdown,4spaces] 
Mir exclusiv" 
print "Cdown, 5spaces] 
(zusaetzliche beilagen etc.)"” 
12867 
get a$:if a$<”"1” or a$>”"4" then 
2454 12457 
vera=val (a$) J822 
print "Cclr,3down, 10spaces] 
auflagenhoehe:" 
print "C[2dounJwieviele 
diskettenkopien sollen in " 


13208 


32103 


print "Cdownlden handel 7” 
age" 

print "Cdown, Sspaces)>";: 
gosub 20008: a$-d$: print 
dk-val (CaS):if dk>lda then print 
"Cup]” spc(11)"C10spaces, 2up]”: 
goto 4466 13748 
as-"" 21398 
print "[2downlund wieviele 
kassetten ?" 

print "Cdown, 9spaces)>";: 
gosub 20000: a$=d$: print 
kk=-val (Caß):if kk>lka then print 
"Lup]” spe(11)"C10spaces, 2upl"”: 


goto 4474 13952 
vk-vera*ldk+kk)*4 31743 
if kk=® and dk=® then 44B4 11593 
goto “44BB 23773 


print "C2douwn,4spaces]Jdoch kein 
neues produkt ?T?":For a=1 to 
2508:next :spiel=-spiel-1 15439 
goto 4000 1565 
print "Colr ‚4down, 6spaces] 
kopierschutz ?” 
print "C2down, 2spaces] 
(1)... ...Kkein kopierschutz” 
33435 


12202° 


print "Cdown, 2spaces] 
(2), ,..."miniprotect’ 


tleicht)" 
23371 


print "Cdown,2spaces] 
(3)......"anticrack’ 


Cmittel)” 
13759 


print "[down, 2spaces] 


4498 


4508 
4502 
4504 
4506 


4508 


4510 
4512 


4514 
4516 


4518 
4520 


4522 
4524 


4526 


4528 


4538 


4532 


4534 
4536 


4538 
4549 
4542 
4544 
4546 
4548 
4550 
4552 
4554 


4556 


4558 
4568 
4562 
4564 
4566 
4568 
4563 


4570 
4572 


4574 


4576 


4578 


4588 


4582 


45B4 
4588 
4583 
4590 
45932 


4594 


I. "disklock' (schwer)” 
33338 

print "[Cdown, 2spaces] 

(5). '"superprotect '(9S%sicher)” 
33233 

get a$:if a$<”1” or a$>"S” then 


4508 32313 
cp"=-val (a$) 1882 
sk"-cp*30000 31179 
print "[Cclr,Sdown, 8spaces] 
verkaufspreis:” 32435 
print "[3down, 2spaces)lwieviel 
soll die sammlung im laden" 
13725 
print "[down, 2spaces]kosten (in 
dm) ?” 32883 
dlp=-®:klp-® Jı123 
if dk=® then 4522 31833 
print "[2down] auf diskette >";: 


zl=-3:gosub 20008: 3$=d$: print 


dlip=val (a$) 
if dlp-® then print ”"L[Lup]” spet 
15)"C3spaces, 3up)”:goto 4516 
12767 
if kk-8 then 4538 Jı1a44 
print ”[2down) auf kassette >"”;: 
21-3:gosub 290808: a$*-d$: print 


33317 
klp=val (a$) 31677 
if klp=® then print "[Lup)” spet 


15)”"[C3spaces, 3up]”:goto 4524 


i 


2 
print "[clr,down, 3spaces]daten 
des neuen produk 2 J2 


Edoun,‚3spaces ‚25chm 9 Bas 
13695 


print ”"[Cdown] name: ";name$ 11827 
print "[down] programmart: ”; 


971 
print 


typ$(9) 32083 
print "[down] verpackung: ; 
vera$(vera) 32621 
print "[down] anzahl/disks: ”;dk 
32548 
print "[down] anzahl/kassetten: "” 
ikk 32895 
print "[down] kopierschutz: "”; 
cep$Ccp) 32548 
print ”"[Cdown] ladenpreis 
(diskette): ";dip;” dm” 33371 
print "[down] ladenpreis 
(kassette): ";klp;” dm” 13395 
pq*-int (C(pglaslt1))+pglas(t2))+ 
pgqlas(t3))+pg(las(4)))/40)*B+vera* 
53 J6166 


get a$:if a$-"" then 4552 31776 
print "[clr,2down, 7spaces]kosten 


des neuen produkts:” 33482 
print "[2down, 3spaces] 
verpackungskostenl[l2spaces]: "”;vk 

32565 
print "[down, 3spaces] 
kopierschutzkosten : ”;sk J2941 
print "C2down,6spaces] 
(p)lroduktion starten” 33188 
print "[down, 6spaces] 
(n)eueingabe” 31456 
get wS:iF wS<>”"p" and wS<>"n” 
then 4554 3319828 
iF w$="n” then goto 4098 31753 
gk“gk-sk-vk 31543 


print "[clr,18down]spielesammlung 
wird zusammengestellt...” 1456598 
for i=4 to 1 step -1 31118 
if as(li)=spiel and as(i)>1 then 
spisl-spiel-1:goto 4598 34369 
if as(i)=spiel then spiel=-spiel- 
1:goto 45998 33348 
for a=as(i) to spiel-i 31835 
pgq(la)=pgla+l):entwla)=-entula+l): 
typ(a)=typ(la+l):verala)-vera(a+l) 
16838 
prgt(a)=prgt(a+r1):cp(la)=cplarl): 
klpla)=klp(la+1):dlp(a)=dlpla+1) 
158985 
kkla)=kkla+1):dkla)=dkla+rl):kzla) 
"kzlatl):dz(la)=dz(arl):name$(a)- 


nameS(a+l) 1317970 
vmCa)=vmla+1) 315808 
next 3138 
spiel=-spiel-i1 J1228 
next 3138 


spiel=-spiel+1:name$(spiel)=name$: 
pg(spiel)=-pg:entw(spiel)-® 15523 


typ(spiel)-9:vera(spiel)*vera: 
prgt(spiel)-3:cp(spiel)=-cp: 
klptspiel)=-kip 


37268 


4535 dlp(spiel)=dlp:kktspiel)=-kk: 
dk(spiel)=dk:kz(spiel)=-2: 
dz(spiel)=-®:vm(spiel)-® 17640 

4596 for a=1 to 15088:next 3985 

4598 goto 4008 1565 

4688 print "[clrJwelches spiel soll 

herausgenommen werden” 34422 

4510 for a1 to spiel 31183 

4620 if a=21 then print "[Chome]” 31085 

4625 if a>28 then print spc(28); 11571 

4638 if a<1®8 then print " ”; 31314 

45635 print a; "Cblk]”name$(la)"[Lwht)” 

31781 

4648 next 1138 

4658 print "Chome, 23down, 14spaces) 
nummer: ”";:z1l=2:gosub 2908989:n$= 
d$:print 15084 

4SESS n=val (n$) 3701 

4657 if n=B then 4090 J966 

“4668 if n<1 or n?>spiel then print " 
Lup]" spc(22)"C2spaces)”:goto 
46508 33301 

4678 print "[clr,18down, blkJ”"name$(Cn)"” 

Cuwht]Jherausnehmen (3j/n)?” 13575 

4588 get wS:if wS="" then 46808 31743 

4598 if w&<>"j” then 4088 31467 

45655 print "[clr,Sdown, Sspaces]spiel 

wird herausgenommen...” 34978 

4557 For a=i1 to 1580:next 3985 

“788 if n=spiel and n?1 then spiel= 
spiel-i:goto 4088 33322 

4785 if n=spiel then spiel=spiel-1: 
goto 10008 313223 

4718 For a=n to spiel-1 231471 

4728 pgla)=pgla+l):entw(la)=entwla+1): 
typla)=-typ(a#+t1):verala)-verala+l) 

16038 

4738 prgt(a)=prgt(a+1l):cpla)=cpla+l): 

klpla)=klp(la+1):dlpla)=dlpla+1) 
35805 

4740 kkla)=-kkla+l):dkla)=dkla+rl):kzla) 
-=kz(a+l):dz(ta)=-dz(a+r1):name$(a)- 
nameS(a+1l) 17970 

4745 vmla)=vm(la+i1) 31588 

4758 next 1138 

4755 spiel=spiel-1 21228 

4760 goto 4000 1565 

4888 print "[clr,3down, 2spaces) 
einkaufen von 

diskstten/kassetten: ” 234257 

4818 print "[C2spaces, 34chbm t]” 14748 

“4812 print "[4spaces)vorrat:[blk])"ida” 
Luhtldiskettenftblk)” 339042 

4814 print spce(11)1ka"lwhtlkassetten” 

31893 

4815 print "[Cdown, 4spaces] 
leerdiskettenpreis: [bik]J"dp” 
CwhtIdm” 22878 

4517 print "[4spaces) 
leerkassettenpreis: [CblkJ”kp” 
Lwht]Jdm” 329391 

4819 aS=""” 3399 

4828 print "[2down, 3spaces)lwieviele 

leerdisketten ?” 32985 

4838 print "[down, 8spaces)>"; :zi-18: 
gosub 29999: a$=-d$: print 33272 

4840 lIda=-ida+val (a$):gk=-gk-int (C val 
(a$)*dp) 13818 

4842 if val (a$)<100 and val (aS)>® 
then gk=gk-5 33052 

4B45 as-" 3398 

4858 print "[C3down, 3spaces)lwieviele 

leerkassetten ?” 32987 

48608 print "[down, Bspaces)>";:z1-1®: 
gosub 20800: a$=d$: print 313272 

4878 lka=lkatval (a$):gk-gk-int C val 
(a$)*kp) 33185 

4872 if val (aS)<100 and val (a$)>® 
then gk=gk-5 33852 

48898 goto 4800 1565 

4988 print "[clr]Jpreis aendern bei 

welchem spiel(®=-menu)” 24162 

49318 for a"1 to spiel 31183 

oO if a=2] c 31885 


a>29 


then pr c 
a<18 then print 


J1314 


if 

print a; "Cblk2"name$(la)"Lwht]” 
31701 

next 3138 


print "Chome, 23down, 14spaces]) 
nummer: :zl=2:gosub 290888:n$- 
d$: print 15994 
n=val (n$):if n=® then “980 11696 
if n<1 or nm?spiel then print " 
[up]"” spe(t22)"C2spaces]”:goto 
4978 33413 
print "Cclr,2down] preisaenderung 


a ur ee Er a 


® an Ihrem Computer 
® an der Peripherie 
...rufen Sie uns ungeniert — 


die Service-Profis von 
»Rat und Tat«. 


Wir warten und reparieren 
schnell - preiswert - qut 


IN ATAR 


Ck commodore 


<>Schneider 


Technischer 
Kundendienst 


Bundesweit — an 70 Standorten: 


Augsburg, Tel. (08 21) 46 50 33 

Berlin 44, Tel. (0 30) 6 84 60 57-59 

Bielefeld 17, Tel. (05 21) 2 08 04 40 

Bocholt, Tel. (0 28 71) 18 21 95 

Braurtschweig, Tel. (05 31)4 46 71/84 50 99 
Bremen, Tel. (04 21) 41 43 50 

Bremenhaven, Tel. (04 71) 4 91 88 

Celle, Tel. (0 51 41) 67 67 

Darmstadt, Tel. (0 61 51) 10 92 52/2 00 17 
Dortmund / Hoizwickede, Tel. (0 23 01) 85 11-13 
Düsseldorf-Eller, Tel. (02 11) 21 30 45/22 29 58-59 
Essen-Vogelheim, Tel. (02 01) 3 59 23-27 
Frankfurt/Main, Tel. (0 69) 41 60 11-13 
Freiburg / Gundelfingen, Tel. (07 61) 5 88 01-02 
Fulda / Petersberg. Tel. (06 61) 3 62 10 
Gießen, Tel. (06 41) 59 44-45 

Goslar-Baßgeige, Tel. (0 53 21) 5 05 31/5 03 45 
Göttingen/Rosdort, Tel. (05 51) 78 20 36-37 
Haiger, Tel. (0 27 73) 24 46 

Hamburg 74, Tel, (0 40) 2 20 19 13 
Hannover 1, Tel. (05 11) 32 77 55-56 
Heilbronn, Tel. (0 71 31) 4 49 32 

Hot/Saale, Tel. (0 92 81) 99.41 

Idar-Oberstein, Tel. (0 67 81) 2 78.00 
Ingolstadt, Tel. (08 41} 5 80 80 

Iseriohn, Tel. (0 23 71) 2 41 51 

Kaiserslautern, Tel. (06 31) 6 18 12 

Karlsruhe, Tel. (0 7 21) 2 18 21 

Kassel, Tel. (05 61) 10 31 01/7 89 52-51 
Kempten, Tel. (08 31) 2 41 10 

Kiel, Tel. (04 31) 68 00 49 

Koblenz-Lützel, Tel. (02 61) 8 20 44-45 
Köln-Rodenkirchen, Tel. (0 22 36) 6 40 56-57 
Landshut, Tel. (08 71) 4 52 31 

Lübeck, Tel. (04 51) 89 80 40 

Lüneburg, Tel. (0 41 31) 3 66 86 

Mannheim, Tel. (06 21) 1 68 33 30/29 14 75 
Memmingen, Tel. (0 83 31) 43 35 

Minden, Tel. (05 71) 2 80 25-26 
Mönchengladbach, Tel. (0 21 66) 42 08 80 
München/Eching, Tel, (0 81 65) 7 42 56-57 
Münster, Tel. (02 51) 61 70 50/61 70 59 
Nürnberg, Tel. (09 11) 21 38 16-18/63 20 02 
Passau, Tel. (08 51) 5 21 77 

Pforzheim, Tel. (0 72 31) 2 40 21-22 
Ravensburg, Tel. (07 51) 251 16 
Recklinghausen, Tel. (0 23 61) 20 95 51/37 22 79 
Regensburg, Tel. (09 41) 79 62 21 

Rosenheim, Tel. (0 80 31) 4 22 05 
Saarbrücken, Tel. (06 81) 3 01 72 78/3 70 93 
Singen, Tel. (0 77 31) 6 78 70 

Solingen, Tel. (02 12) 20 08 80 
Stuttgart/Leonberg, Tel. (0 71 52) 7 22 38-39 
Trier, Tel. (06 51) 7 32.09 

Ulm / Neu-Ulm, Tel. (07 31) 840 70 

Wiesbaden, Tel. (0 61 22) 5 22 71-72/82 71-72 
Wilhelmshaven, Tel. (0 44 21) 4 23 99 
Würzburg, Tel. (09 31) 5 02 89 


6030 


6035 
5040 
6045 
6959 


6055 


6070 


60898 
6198 


6105 
6118 
6200 
6210 
63008 


bei Cblk]"name$tn)” Lwht}:” 
33278 

if dlp(n)>® then print ”"[doun, 
Espaces]ldiskette: [blk]"dlpfn)"” 
LwhtJdm" 135 
if klp(n)>® then print "Cdown, 
Sspaces]kassette: [blk]"klp{n)" 
CuhtJdm" 13702 
if dip(n)=-® then 4336 11823 
print "[2down] neuer 
diskettenpreis >"; :zli=3:gosub 
20000: a$-d$: print 34738 
a=val (a$):if a<c=® then print " 
Cup]"” spce(24)”"[3spaces, 3up)”:goto 


4933 13551 
dip(n)=a 23947 
if klp(n)=8 then 4000 11435 


print "[2down] neuer 
kassettenpreis >"; :zi=3:gosub 
20000: a$=d$: print J4669 


a=val (a$):if a<-® then print " 
Lup]"” spc(24)"[3spaces, 3up)":goto 
49397 13583 
klpin)"a:goto 4909 231377 
if wa=®,8B then 5107 J14290 
print "Celr,10down, Sspaces] 
werbeaktionen laufen schon I!!!" 
14083 


For a-1l to 38:poke 54272+4,33: 
poke 54272+4,8:next 13583 
For a-=1 to 3008:next :goto 1880 
314567 
print "Colr,2downJwerbung Fuer 
die produkte auf dem markt: " 
14270 
print "C2down, 12spaces] 
werbeaufwand[shift-space]?" 11955 


print "[C2down,4spaces) 
Cl)sssrersr..gering -(anzeigen)"” 
13778 
print "[Cdown,4spaces] 
(2)......mittel (Cplakate etc.)” 
J3212 
print "Cdown,4spaces](3),....hoch 
(Fernsehewerbung)” 13387 
get wS:if wS="" then S15® 118390 


weval (wS):if w<i or w>3 then 
51590 J2431 
if w=1 then wa=1:wk=wi 11878 
if w-2 then wa=1,2:wk=w2 32350 
if w=-3 then wari1.5:wk=w3 32371 
print "Cclr,6down, 7spaces] 
werbungskosten: "wk"dm" 33468 


print "C3down, 18spaces](w)erbung 
starten” 12199 


print ”"Cdown, 18spaces](z)urueck” 
11519 
get wS:if wS="" then 5230 11782 
if w$<>"w”" and w$<>”z” then 52308 
12489 
if w$="w" then gk=gk-wk:goto 10090 
12788 
wa=,B:uk=®:goto 18808 231755 


print "[clr,6down, Sspaces]spiel 
speichern/laden:” 12782 
print "C3down, Sspaces] 
Kr cr era.» AiKkatte” 33193 
print "Cdown, Sspaces] 
(Dieses... Kassette” 32635 
print "Cdown, Sspaces] 
Brunner an cnn . ZUFUCK” 23185 
get wS:w=val (wS):if wel or w>3 
then 6039 13596 
if w=3 then 1009 3312 
if w=1 then gn=8 11298 
if w=2 then gn=1 J1299 
print "Cclr,9down, 3spaces] 
ıusasssrrsers...Spielstand 
laden” 14780 
print "Cdown, 3spaces] 
(2). ‚aktuellen spielstand 
speichern" 13259 
print "Cdoun, 3spaces] 
Hirn tern. sZUFUM 
ck” 34519 


get w$:w=val (wS):if wel or w3 
then 6079 13598 
if w=-3 then 6000 21072 


print "Cclr,10down, 6spaces] 


Firmenname: "”;:z1l=13:gosub 20000: 
nfs=d$ 34144 
if len (nf$)=8 then 50598 31504 
nfS="sm,”+nfS 121049 
if w*1 then 6300 11248 
if w=2 then 6508 21129 


if gn=8 then print "[cir,18down, 
7spaces]spielstand wird 


6305 


6310 
6320 


6330 
6335 
63498 
6345 
6350 
6355 
6360 
6365 
6378 
6375 
6388 
6385 
6398 
6400 
6418 
6415 
6420 
6425 
6438 
6435 
6440 
E445 
6458 
6455 
6469 
6465 
6479 
6472 
6475 
6480 


64390 
6482 
6495 
6500 


65085 


6518 
6520 


6539 
6535 
6540 
6545 
6558 
6555 
65608 
6565 
6579 
6575 
65808 
6585 
6599 
66008 
6618 
6615 
6620 
6625 
6638 
6635 
6648 
6645 
6650 
6655 
66608 
6665 
6678 
6672 
6675 
6680 
6630 
6692 
6695 
6809 
68208 
6830 


6832 
6835 
6840 
7000 
7985 


7006 


34361 


geladen...” 
if gn=1 then print "Cclir,10down, 
4spaces] 'play’ am recorder 
druecken...[Cblu]” 

if gn=-1 then open 1,1,8,nf$ 12138 
if gn-B then open 1,8,2,nf$+",s, 


15379 


r”":gosub 6808 33886 
input#1,3$:ks=val (a$) J1522 
input#1,a$:wa=val (a$) 11516 
input#1,a%:1ka=val (a$) 31217 
input#1,a$:lda=val (a$) 11086 
input#1,3$:fg=val (a$) 11456 
input#1,a$:wi1-val (aS) 31508 
input#1,a$:w2=val (a$) 21381 
input#1,a$:w3=val (a$) 11509 
input#1,a$:dp"val (a$) 11208 
input#1,aS:kp=val (a$) 11393 
input#1,a$:spiel-val (a$) 11458 
input#1,a$:gk=val (a$) 11517 
if spiel=-® then 6439 31548 
for a=1 to spiel 11183 
input#1,38:pgla)-=val (a$) J1468 
input#1,a$:entw(la)=val (Ca$) 11767 
input#1,a$:typ(a)=val (a$) 11499 
input#1,a$:verala)-val (a$) J1912 
input#1,a8:prgt(la)-val (a$) 11689 
input#1,a8:cp(a)=val (a$) 11528 
input#1,a$:klp(a)-val (a$) 11554 
input#1,a$:dlp(a)=val (a$) 11361 
input#1,85:kkla)=val (a$) 11647 
input#1,a$:dk(Ca)-=val (a$) 231454 
input#1,8$:kz(a)=-val (a$) 231527 
input#1,38:dz(Ca)=val (a$) 11334 
input#1,a5:vm(a)=val (a$) 11587 
input#1,a$:rk(la)"val (a$) 11585 
input#1,name$(a) 21142 
next 1130 
close 1 1258 
print "Cwht)” 1258 
goto 1089 1559 


if gn=B then print ”[clr,1ßddoun, 
“4spaces]spielstand wird 
gespeichert...” 34837 
if gn=1 then print "Cclr,10down] 
'record & play' am recorder 
drusecken. ..‚Cblu]" 15310 


if gn=-1 then open 1,1,1,nf$ 12146 
if gn=B then open 1,B,2,nf$+",s, 


w”:gosub 6800 14046 
print#1,str$ Cks) 21059 
print#1,str$ (wa) ]1056 
print#1,str$ Clka) J1142 
print#1,str$ (Clda) 1949 
print#1l,str$ (fg) 21026 
print#1,strS$ (wi) 11052 
print#1,str$ (w2) 11116 
print#1,str$ (w3) 11180 
print#1,str$ (dp) 1898 
print#1,str$ (kp) 1867 
print#1,str$ (spiel) 31269 
print#1,str$ (gk) J1184 
if spiel-® then 6690 31556 
for a=1 to spiel 31183 
print#1l,str$ C(Cpg(a)) 21019 
print#1,str$ (entuw(a)) J1342 
print#1,str$ Ctyp(a)) 21265 
print#1,str$ (verala)) 11287 
print#1,str$ (Cprgt(a)) 11383 
print#1,str$ (cp(a)) J1049 
print#1,str$ (klp(a)) J1165 
print#1,str$ (dlp(a)) 11196 
print#1,strS5 (kk(a)) 31248 
print#1,str$ (dk(a)) 21271 
print#1,str$ (kz(a)) 11188 
print#1,str$ (dz(la)) Jı211 
print#1,str$ (vm(a)) J1218 
print#1,str$ (rk(a)) 31203 
print#1,name$(Ca) 11162 
next 1138 
close 1 1258 
print "Lwht]” 1258 
goto 1900 1559 
input#i14,a,b$,c,d 31238 
if a=-d or a=73 then return 11166 


print "[Cclr,10down, 13spacesIdisk 
Fehler !!!" 12295 
for a=1 to 30:poke 54272+4,33: 
poke 54272+4,d:next 13583 
for a=1 to 3088:next 
close 1:goto 10008 
poke 53288,9:poke 53281,9:print ” 
Celr,down, 7spaces)verkaufszahlen 


des monats:” 34434 

gk-gk-la-int ( rnd (98)*50008) 
12528 

if spiel>® then 7015 11486 


7007 


79008 
7818 
zoı2 
7014 
7015 
7020 
7030 
7048 
7050 
79860 
7078 
7100 
7105 
7118 
71208 


zı2ı 
zı22 


7125 


7126 
7127 
7130 


7131 
7ı32 
7134 


7136 
7138 


7140 
7zı42 
7145 
7147 
7148 
7150 
7160 
7162 
7165 


7178 
7188 


71998 
7298 
7210 


72208 


7230 


232 


7233 
235 


7240 
7245 
7250 
7260 


7265 
7290 


7235 
7380 
8900 
8905 
8007 


print "C3down, 2spaces]kein 

produkt auf dem markt oder in” 
23428 

print "[2spaceslentwicklung.” 
2 


1729 
print "Cdown,rvs, 16spaces)taste 
C18spaces,off]” 12259 
get wS:if wS=-"" then 7012 11838 
goto 9908 1572 
for a=1 to spiel 11183 
if entz(a)-® then gosub 7100 

11623 
next 3139 
for a=1 to spiel 131183 
if entz(a)>® then entz(a)"entz(a) 
-1:gosub 8080 13819 
next 113 
goto 9008 1575 


if vm(a)=-® and typla)=l1 then iz= 
int C rnd (B)*15):if iz=-B then 
typ(a)=18 234547 
vm(a)=-vmla)+l:if vm(a)>10t38 then 
vm(a)=vmla)-1 13989 
if vm(a)=1 then rkla)-(ipgla)* 
180088)/cp(a) 33225 
if vm(a)<11 then rkla)-rkla)+ 
ck(a)®*,3 13207 
if typta)=18 then 7250 11572 
if klp(a)=® and kkla)=® then 7127 
12161 
ek=(pg(a)*280009089*wa)/Cklpla)® 
rkta)® ,01®vm(la)):if typla)=1 then 
ek-ek*1,1 15833 
if typla)=8 then ek"int (ek*1.,5) 
12107 
if dlp(a)=® and dk(a)=® then 7132 
21975 
ed=(pq(a)*28000098*wa)/Cdlpla)* 
rkla)*,01*vmla)):if typla)=l then 
ed-ed*1.1 15563 
if typ(a)=B then ed-int (ed*1.5) 
J29044 
if klp(a)>S50O and klp(a)<Bl then 


ek-ek*.3 33388 
if klp(a)>88 and klp(a)<l121 then 
ek-ek*.1 J3456 
if klp(a)>128 then ek=® 11715 
if dlp(a)>88 and dlp(a)<161 then 
ed-ad*.3 33323 
if dlpla)>160 and dlp(a)<201 then 
ed-ed® 1 33266 
if dlip(a)>200 then ed-=® 31729 
nd=®:nk=® J1256 
if ek>kk(la) then ek=-kkla)ınk=i 
362 
if ed>dk(a) then ed=dkla):nd=1 
12085 
kz(la)=kzla)+int (ak) 21714 
dz(la)=dzla)+int (ed) 11383 


kkla)=-kkla)-int (ek):dkla)=dkla)- 
int (ed) 33517 
ok=-gk+int (C int (Caek)*klpla)*.,7+ 


int Ced)*dlpla)*.,7) 314373 
print "Cdown]"names(la)”:" 31254 
print "kassetten: [blk]” int (ek) 
21716 
print "Cwht) (gesamt:Cbik] " 
kzCa)"Lwht])” J2210 
print "disketten: Cblk]” int (ed) 
11723 
print "Cwht] (Cgesamt:Cbilk} ” 
dz(Ca)”Lwht))" 12079 
if nk=1 then print "Cdown, wht] 
kassetten ausverkauft ‚grosse 
nachfrage." 24139 
if nd=-1 then print "[down, wht] 
disketten ausverkauft ‚grosse 
nachfrage." J4146 
if vmla)=1 and pg(a)>83 then gotoa 
7235 22045 
goto 7240 3611 
print "[Cdown)qualitaetspraedikat: 
"besonders wertvoll'”:fq=fq+1 
15420 
print "Cdown]” 33 
goto 7290 651 
print "C2down)”name$(a)":" 11590 
print ”"Cdownlindiziert wegen 
unmoralischen inhalts!!!” 174437 
for a=1 to 38:poke S4272+4,33: 
poke 54272+4,O:next 13583 
print "[down,wht,rvs, 12spaces] 
taste[l23spaces, off)”; 12377 
get w$S:if w$="" then 7295 11808 
return 2142 
print "[2down]"name$(a)"”:" 11590 
vz=int C rnd (90)*15) 11565 


if vz=B then entwla)-entwla)+i 
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N 


Bud 7 oe 


BolD 


8015 


8020 
8030 
8040 
9200 


9901 
so22 


3903 
9904 
3005 


9906 
9007 


9908 
3903 
39190 
9015 
99020 


93030 
9035 


9037 
so40 
39508 
3200 
9210 
9220 
9225 


g226 
9227 


3228 
9223 


9239 
9232 
9235 
9236 


9238 
9239 


9240 


9250 


12575 
print "[down, 2spaces] 
entwicklungszeit in monaten: 

CblkJ"entz(a)”Lwht)” 33907 


if vz=8B then print "[doun, 
4spaces] 
(programmierverzoegerungen! I! !)" 
J4616 
print "C2doun,rvs, l12spaces]taste 


[23spaces, off)” 32316 
get w$:if w$="" then 8030 231774 
return Jı42 


am-d:For a-1l to spiel:ifF vm(la)-1 
and typ(Ca)<19 then am=i1 34155 
next 3130 
if am-® then print "[douwn, 
Sspaces)kein spiel in der 
hitliste.":for a=-1 to 1008:next 
:goto 390 35585 
For a=i1 to 18:apla)-=int (50000+ 
end (8)*50000):next 13012 
print ”"Cclr,Sdownldie hits des 


monats werden ermittelt...":Ffor 
a=-l to 10:hl(a)=®:next 16357 
am-®d 1550 


for k=-1 to 9 2731 
if aplk)>ap(lk+1) then zv=aplk): 
ap(k)=apCk+1):aplck+1)=zv:am-1 


15168 
next 2138 
if am-1 then 9005 1998 
az-10 23587 
for a1 to spiel 31183 


if typ(a)=18 or entw(a)>® then 
9200 12698 
if vmCa)>1 then 9208 231359 
if (kzla)+dz(la))=<aplaz) then 
9200 23117 
if az<10 then if (kzla)+dzla))-> 
ap(az+1) then 92008 33791 
For b=1 to az-1:ap(b)=ap(b+1): 


next :aplaz)=kz(la)+dz(la) 34312 
for b=1 to az-1:hl(b)=hllb+1): 

next :hlCb)=a 33258 
next 3138 
az-az-l:if az=-® then 9225 31873 
goto 9015 1663 


print ”"Cclr,down, 15spaces]top 
ten” 31771 
print "[C15spaces, 7cbm t]” 31558 
print "[down,Sspaces)die hits des 
monats” 12340 
print "[Cdown, Sspaces,rvs,29chm a, 
off)” 33271 
for a=1 to 12:print spc(5)"[rvs, 
chm a,0ff]" spc(27)”Crvs,chm a, 
off}J":next 23007 
print "C[5spaces,rvs,29cbm a,0off]” 


13497 
print "Chome, ?7down]” 1875 
For a=108 to 1 step -1 31306 


poke 54272+4,33:poke 54272+4,0 
32561 

print spc(6); 1698 

print 11-a;:if a<lil and a>l then 


print 793 J2545 
if hilla)=® then print 
"konkurrenzspiel "apla)"Luwht]"” 
13467 
if hlla)>® then print "CbIk]" 
name$(hl(a)) 12390 


Brot 


für die Welt 


N ER A 


S2Ss 
9269 
9265 
92708 
9280 
19900 


190010 
10820 


100308 


10040 


10050 
10060 


10070 


10080 


10039 


10108 
18118 
110988 
15000 
15010 


15020 


15038 


15040 


15050 
15060 
159708 
15080 
160008 
200008 


20010 
eooı11 


208012 


20015 


209208 


20030 


20032 
20035 
200940 
20058 


if hlta)>®8 then print "Lup]” spct 


26);apla)”Cuht)” J2121 
next J13® 
if h1l(198)>8 then fa=fa+1 21463 
get wS:if w$="" then 3270 31942 
goto 908 1572 
if gk>-20000081 then ks=®:return 
31982 
ks-ks+1 23747 
if ks=-3 then print "[clir,18down, 
3spaces)>>> 
achtung. ..finanzprobleme <<<” 


15328 
if ks=-3 then print "[douwn, 
3spaces)lin 3 monaten kein kredit 

mehr 11” 24113 
if ks=3 then for a1 to 2500:next 


:return 12067 
if ks<>6 then return 31852 
print "Cclir,10down,ilspaces)>>> e 
nde <<<” 32447 


print "[Cdown, 2spaces]du hast 
soeben bankrott gemacht !!ı" 
23747 
print "Cdown,Sspaces)deine 
schulden: [Cblk]J"”gk”Luht]Idm" 
32713 
print "Cdown,rvs, 165spaces]taste 


C18spaces,off)” 12259 
get w$:if w$="" then 10100 11678 
run 3138 
end J128 
poke 53288,8:poke 53281,8 31448 
print "Cclr, Bdown, 6spaces] 
(4 © VE “ı...NBues spiel" 
33965 
print "Cdown, 6spaces) 
LEI un en sn e lesieiee ende” 
13648 
print "Cdown, 6spaces) 
Disease zurueck” 
33536 
get wS:if w$<C"1” or w$>”3” then 
15040 J2647 
w=val (CwS) 2599 
if w=1 then run J855 
iF w=-2 then 16098 J1129 
if w=3 then 10008 J312 
sys 64738 1717 
print '"Ccbm @,left]”;:d$=-"":t5-""” 
231707 
get t$:if t$="" then 20018 1616 


poke 54272+4,33:for a=1 to 3:next 


:poke 54272+4,0 233621 
if t$=chr$ (147) or t$=chr$ 

(148) then 20010 32560 
if t$=chr$ (29) or t$=chr5 (157% 
or t$=chr$ (17) or t$=chr$ (145) 
then 20010 34951 
if tS=chr$ (13) then print ” ";: 
return 31644 
if t$=chr$ (28) and len (d$)>9 
then print "[left,cbm @] [C2left)” 
;:d$=left$ (d$,len (d$S)-1) 14489 
if t$=chrS (280) then 28018 J1395 
if len (d$)=zl then 200810 31325 
if asc (t$)<32 then 20010 31605 


d$=-d$+t$: print t$”[chbm @,left]";: 
goto 200108 31558 


ende des listings 


Unser Auftrag: 

Die Schöpfung Gottes zu 
bebauen und zu bewahren. 
Längst sind wir Menschen 
selbst die Bedrohung. 
WEISE 


Die schnellsten 


Software-Entwicklungssysteme 


für 


SFr. 270.- 


Extrem egal Single-Pass-Compiler, in Workbench Ii 


Intersti 


-50S Software Service GmbH, Alter Postweg 101 
8900 Augsburg, 0821/85737 


- SW-Datentechnik, Raiffeisenstr. 4, 2085 Quickborn, 


- Frei-Ele 
01/9 


Österreich: 
- ICA GmbH, Heigerleinstr. 9, 1160 Wie 


bei Ihrem nächs Computer- oder Buchhändler 


alvertrieb für Europa: 
A.+L. Meier-Vogt 
Im Späten 23 


DM 300.- +MWSt. 


inte- 


CH-8906 Bonstetten/ZH 


a Tel. (41) (1) 700 30 37 


ch (UUCP) 


schicken wir 


Bm ur eusan De Barnnanyarı am € manga Musa ernten 


Europa. 

Hören Sie doch mal rein! | == 
sen MW MIETE 

we HE KWEZIKME Am Band 


Bholb 


elp System“ ist ein 
völlig neues Utility- 
Konzept. Die Funktio- 
nen der Erweiterung kön- 
nen jederzeit — ob der Computer nun 
einen Befehl oder ein Programm aus- 
führt — durch Tastendruck aktiviert 
werden. Wird das Helpsystem wieder 
verlassen, so befindet sich der Compu- 
ter in genau demselben Zustand, wie 
er vor dem Aufruf war. 

Das Programm wird mit LOAD“na- 
me“,8 geladen und mit RUN gestartet. 
Aktiviert wird „Help-System“ durch 
C=/CTRL — es erscheint ein Win- 
dow mit dem Hauptmenü. Mit den 
Cursortasten wird ein Menüpunkt an- 
gewählt, durch RETURN bestätigt. 
Jede Funktion kann mit RUN/STOP 
abgebrochen werden. Die Menüpunk- 
te im einzelnen: 

Hardcopy 

Nach einer Sicherheitsabfrage wird 
der aktuelle Bildschirminhalt auf 
Drucker ausgegeben. Dabei ist die Ge- 
rätenummer 4 und die Sekundäradres- 
se 7 voreingestellt. 

Save Pic 

Bildschirminhalt inklusive Farbinfor- 
mation werden auf Diskette abgespei- 
chert. Da Video- und Farb-RAM im 
Speicher nicht zusammenhängend lie- 
gen, gibt „Help-System“ zwei ver- 
schiedene Files auf Diskette aus. Der 
Filenamen wird bei dem File für das 
Video-RAM mit *.V“ erweitert, die 
Datei für Farbinformationen mit „C*. 
Der abgespeicherte Bildschirminhalt 
läßt sich durch die Anweisungen 
LOAD“name.v“,8,1 und LOAD“na- 
me.C“,8,1 wieder laden. Dabei ist das 
Help-System nicht notwendig. Diese 
Funktion eignet sich unter anderem 
sehr gut zum Erstellen von Bildschirm- 
masken. 

Set Color 

Die Bildschirm- sowie Textfarbe kann 
hier neu gewählt werden: „Border“ 
setzt die Rahmenfarbe, „Backgnd“ 
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„Help System“ eröffnet neue 
Dimensionen: Trace Routine, 
Hardcopy, Directory und vieles 
mehr ist mit einem Tastendruck 
aktivierbar, ohne daß der Basic- 
Programmablauf gestört wird. 


setzt die Hintergrundfarbe und „Pen“ 
die Schriftfarbe. „Exit“ führt zurück 
ins Hauptmenü. 

Directory 

Das Directory der Diskette wird ge- 
zeigt. Läßt sich ein umfangreiches In- 
haltsverzeichnis nicht auf einmal zei- 
gen, so wird es Seite für Seite ausgege- 
ben. Die jeweils nächste Seite wird 
durch „Continue“ gezeigt. „Exit“ be- 
endet die Ausgabe. 

Floppy 

Es erscheint ein Untermenü mit fol- 
genden Möglichkeiten: Send Com- 
mand — Ein DOS-Kommando kann 
an die Floppy geschickt werden. 

Read Error Msg — Der Floppy-Feh- 
lerkanal wird ausgelesen und der In- 
halt auf Bildschirm ausgegeben. 
„Exit“ führt zum Hauptmenü zurück. 
Clock 

Ist der Clock-Modus eingeschalten, so 
wird die Uhrzeit am rechten oberen 
Bildschirmrand angezeigt. Außerdem 
kann eine Alarmzeit eingestellt wer- 
den. Wenn sie erreicht ist, flackert der 
Bildschirmrahmen. 

Stop Alarm — der Alarm wird ausge- 
schalten 

Set Time — die Uhrzeit kann hier ge- 
setzt werden. Sie ist in der Form 
SS:MM:SS einzugeben. 

Set Alarm — Einstellen der Alarmzeit 
Alarm on — Aktivieren der Alarm- 
funktion 

Alarm off — Abstellen der Alarm- 
funktion 

Display on — die Uhrzeit wird am 
Bildschirm eingeblendet 


Display off — die Uhrzeit wird wieder 
ausgeblendet 

Trace 

Der Trace-Modus bietet die Möglich- 
keit, während der Ausführung eines 
Basic-Programms die durchlaufenden 
Zeilen auszugeben. Zusätzlich kann 
der Programmablauf beliebig verlang- 


samt werden: 

Set Speed — zugelassen sind Werte 
zwischen 0 (= keine Verzögerung) 
und 255 (= extrem langsamer Pro- 
grammablauf). Durch die Wahl von 
Decrease wird die Verzögerung ver- 
größert, durch Increase verkleinert. 
Renew Prg — Nach einer Sicherheits- 
abfrage wird ein durch NEW oder ei- 
nen RESET gelöschtes Basic-Pro- 
gramm wiederhergestellt. Diese Funk- 
tion sollte auch nach dem Laden eines 
Maschinenprogramms (LOAD mit Se- 
kundäradresse 1) ausgeführt werden, 
damit die Zeiger auf das Basic-Pro- 
gramm wiederhergestellt sind. 


ASCIH-Tab 

Es wird eine in mehrere Seiten aufge- 
teilte ASCII-Tabelle gezeigt. Mit den 
Funktionen „Previous“ (vorhergehen- 
de Seite) und „Next“ (nächste Seite) 
kann in dieser Tabelle geblättert wer- 
den. Steuer-Codes sind durch drei- 
buchstabige Abkürzungen erklärt. 


Notice 

Eine Bildschirmseite für Hilfstexte er- 
scheint auf dem Bildschirm. Es kön- 
nen nun wie im Basic-Editor Texte ein- 
gegeben werden. Mit der RUN/ 
STOP-Taste beendet man die Notiz- 
blockfunktion. Der Inhalt der Hilfs- 
seite wird im RAM gespeichert und 
kann mit einem erneuten Aufruf die- 
ser Funktion wieder editiert werden. 


Calculate 

Wählt man diesen Menüpunkt an, so 
erscheint ein kleiner Calculator auf 
dem Bildschirm. Die einzelnen Funk- 
tionen werden durch gleichzeitiges 
Drücken der Commodore-Taste und 


der betreffenden Funktionstaste ange- 
wählt. 

C=/H: Die im Display angezeigte 
Zahl wird in das Hexadezimalsystem 
umgerechnet. Alle folgenden Zahlen- 
ein- und -ausgaben erfolgen ebenfalls 
im Hexadezimalsystem. Reicht die 
Anzeige für die Hexadezimalausgabe 
nicht aus, so wird 0 ausgegeben. 
C=/D: Anwählen des Dezimalsy- 
stems. 

C=/B: Aktivierung des Binärsystems. 
Es können nur Zahlen von 0 bis 255 
korrekt ausgegeben werden. Bei grö- 
Beren Zahlen wird lediglich das Low- 
Byte übernommen. 

C=P: +/— im Dezimalsystem 
C=E: Eingabe von Zehnerpotenzen 
— ebenfalls nur im Dezimalsystem. 
C=/C: Löschtaste. 

An Rechenoperationen sind Addition, 
Subtraktion, Multiplikation, Division 
und Potenzierung möglich. Nach jeder 


System: C64/(Floppy) 

Art: Utility 

Sprache: Assembler 
Programmname: Help-System 


0801 0c,08,03,00,98,20,32,30, Be 
0809 36,32,00,00,00,a9,ab,ad, 66 
0811 88,85,5Ff,84,60,89,c7,a0, 3d 
8819 cf,85,58,84,59,a9,72,a0, a® 
2821 18,85,58,84,5b,20,bf,a3, c® 
8829 a9,72,a0,18,85,5f,84,60, 88 
0831 a9,2c,30,ac,85,58,84,59, c8 
2839 a9,9e,38,1c,85,5a,84,5b, e2 
0841 20,bf,a3,20,00,c0,a9,00, ce 
2849 84,901,08,84,02,08,a9,56, 54 
0851 a08,08,4c,1e,ab,93,48,45, e® 
8859 4c,50,24,53,59,53,54,45, eb 
0861 4d,20,49,48e,49,54,49,41, 85 
0869 4c,49,58,45,44,0d,2d,28, 34 
0871 43,29,20,53,54,45,46,41, Fb 
0879 4e,20,4b,49,52,43,48,48, 3F 
0881 4f,46,46,20,20,208,31,39, 33 
08893 38,37,0d,84,590,52,45,53, Fi 
8831 53,20,43,3d,20,26,20,43, ®b 
08393 54,52,40,20,54,4F,20,41, 12 
0831 4b,54,49,56,41,54,45,0d, Of 
0839 0d4,00,a9,d1,a0,c5,8d,08, 45 
08b1 03,8c,09,03,39,41,a0,c0, cS 
08b9 78,84,14,03,80,15,03,58, le 
08c1 ad,de,dd,09,80,8d,de,dd, 36 
0809 a9,d3,a0,c0,8d,18,03,8c, a2 
8841 15,03,a9,08,84,83,cf,8d, Ba 
0849 85,cf,8d,b2,cf,a9,00,a0, 18 
®Bel d®,85,F9,84,Ffa,20,39,ce, ®4 
0889 4c,e3,c4,ad,8d,02,0d,83, 95 
OBFf1 cf,c9,06,d0,17,ba,bd,86, '5ı 
OBFS 01,8d,F5,c1,bd,05,01,8d, d4 
8301 F4,c1,a9,f2,9d,05,01,a9, da 
0309 c0,94,806,01,ad,88,cf,f®, 2b 
0311 4e,a0,16,a8,89,cf,a9,20, Sa 
09319 e0,00,F0,03,69,a7,cf,39, 13 
0321 00,04,ad,8b,cf,939,00,d8, 7c 
0329 c8,c0,20,d0,89,ad,@b,dd, c3 
89331 c93,12,£0,11,c9,80,90,0f, Se 
0333 29,7F,c9,12,F0,09,F8,18, 26 
08S41 69,12,d8,d0,02,39,00,20, 39 
0349 c2,c4H,20,d6,cH,ad,da,dd, Bd 
8351 29,c2,c4,20,d6,c4,ad,09, bB 
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Teilrechnung muß „=“ gedrückt wer- 
den: 

Nicht: 12+12+12+12= 

Sondern: 12+12= +12=+12= 
Oder: 12+=== (Rechnung mit 
Konstante) 

Die Fehlermeldungen OVERFLOW 
und DIVISION BY ZERO ERROR 
werden abgefangen und im Display 
durch ein „E“ dargestellt. Um den 
Calculator wieder freizugeben, muß 
die Funktion C=/C aufgerufen wer- 
den. 

Die Rechnerfunktion wird durch 
RUN/STOP verlassen. 

Turn off 

Nach einer Sicherheitsabfrage wird 
das Help-System verlassen. Ein Neu- 
aufruf ist durch SYS 49152 möglich. 
Zusätzliche Hinweise 

Es ist möglich, bei aktiviertem Helpsy- 
stem das Programm mit CONTROL/ 
C= nochmals in sich selbst aufzuru- 


0359 dd,28,c2,c4,ad,88,dd,ad, Be 

— 0961 85,cf,f0,16,ad,86,cf,d®, b5 
0369 09,ad,20,d80,8d,Ba,cf,ee, 31 
09371 86,cf,ce,87,cf,10,03,ee, d2 
0373 20,d0,4c,31,ea,48,Ba,4B, 4f 
0581 98,48,ac,0d,dd,98,29,04, 58 
09383 2d,89,cf,d0,03,4c,56,fe, b3 
2331 a2,Fff,88,85,cf,e8,88,86, 9b 
8399 cf,4c,bc,fe,08,48,98,48, 51 
0931 8a,48,ad,83,cf,f®,03,4c, 92 
09a9 ed,c1,ee,83,cf,a5,01,48, 7a 
09b1 ad,F4,c1,48,ad,f5,c1,4B, 63 
03b9 20,6c,c03,a2,03,85,f9,a4, 88 
09c1 fa,8d,29,c1,8c,2a,c1,a0, 58 
8309 88,8c,84,92,8c,27,c1,b9, 6b 
09d1 08,08,99,aa,aa,c8,d®,Ff7, aa 
0949 es,27,cl,ee,2a,cl,ca,d®, Ed 
— 89el ee,ad,2a,c1,85,fa,20,64, E2 
= 039e9 c3,39,01,85,cc,ad,Bb,cf, 71 
, @9F1 8d,86,02,ad,88,02,09,80, 6c 
03FS a8,a9,00,aa,94,d9,18,69, c® 
da01 28,30,01,c8,e8,e®d,1a,d®, 25 
0309 F3,a9,ff,95,d9,20,66,85, ed 
Oall a9,00,85,07,85,d8,85,d4, c5 

— 0319 a9,00,85,02,a2,00,20,f6, F7 
 ®a21 c1,20,88,c02,4B,aa,0da,a8, c7 
Va23 b9,00,88,85,55,b9,01,88, di 
 @®a31 F®,16,85,56,39,00,8d,83, ba 
—. 2839 cf,20,54,00,89,01,84,83, b3 
®a41 cf,68,85,02,60,d6,90,d9, 7a 

— 0a49 68,20,74,03,28,60,c3,a2, ce 
= 0851 04,89,03,8d,bf,c1,a5,f9, 7c 
' 8859 a4,fa,8d,bb,c1,8c,bce,ci, ac 
 ®a61 a0,00,F0,09,b9,00,00,99, a5 
= 0a693 00,00,c8,d0,F7,ce,bo,ci, Ic 
IN 8371 ce,bf,ci,ca,d®,ee,ac,bc, d8 
- 83479 c1,c8,B4,Ffa,8Be,83,cf,20, 3d 
 ®a81 64,c3,20,87,ea,a2,00,86, fd 
0289 c6,ca,86,31,68,8d,f5,c1, 88 
0391 68,8d,f4,c1,68,85,01,68, 8b 
03953 aa,68,a8,68,28,4c,00,00, Se 
Oaal bd,1a,a8,85,18,bd,2c,a8, a5 
0saa9 85,19,bd,3e,88,85,1b,bd, 6b 
Oabl 50,a8,85,1a,bd,62,38,85, 30 
®abS 3d,bd,74,38,85,3e,a6,1a, 1F 
Bac1 e8,86,1c,36,18,20,F0,e9, d7 
dac9 a5,d1,18,65,19,85,d1,90, Sd 
®ad1 92,8e6,d2,20,24,ea,20,6c, bd 

= ®adS c3,a4,1b,c8,b1,d1,91,£9, eb 
> ®ael 88,10,F9,20,54,c3,a4,1b, 6a 


fen. Allerdings sollte man nicht über- 
mäßig viele Funktionen auf einmal be- 
arbeiten, da sonst leicht der Überblick 
verloren geht und eben noch einge- 
stellte Parameter wieder auf ihren al- 
ten Wert zurückgesetzt werden. Sind 
zu viele Windows gleichzeitig geöff- 
net, kann es zu einem Systemabsturz 
kommen. Der rekursive Aufruf läßt 
sich jedoch gut zum Ausdrucken der 
Notiztafel verwenden. Nach RUN/ 
STOP-RESTORE oder einem Reset 
wird das System mit SYS49152 wieder 
aufgerufen. 

Tipphinweis 

Das Programm ‘ist als Hex-Dump- 
Listing abgedruckt. Es kann nur mit 
dem Checker eingegeben werden. Als 
Startadresse ist 0801 anzugeben. 


(S. Kirchhoff) O 


®ae9 c8,20,64,c3,b1,f3,20,6c, bb 
Gafl c3,91,F9,88,10,f3,20,54, 8d 
BafS c3,208,F7,c4,20,64,c3,c6, Be 
0b®1 1c,10,d0,20,6c,c3,a0,00, 04 
0b89 b9,18,08,91,£9,c8,c0,04, Fc 
Ob1l d®,f6,20,58,c3,20,64,c3, e6 
0b19 a9,00,85,1e,35,1a,85,1c, ®2 
0b21 a5,18,85,17,20,85,02,e6, 51 
0b2S 1e,a0,00,b1,3d,18,2F,c8, 42 
0b31 aS,10,18,F1,3d,85,3d,a9, ®d 
0633 ab,85,3e,88,a5,1b,85,1d, ce 
©b41 e6,3d,d0,02,86,3e,20,35, 38 
0b49 c2,c6,1c,d®,dc,e6,le,a6, b7 
0b51 17,84,19,18,20,F0,Ff,a6, fe 
0b53 le,bd,23,ac,20,d2,Fff,a®d, 86 
Ob6El 20,6d,26,ac,2e0,01,d0,06, 66 
0Ob69 c4,1d,b9,02,b1,3d,28,d2, 16 
0671 Ff,c8,c4,1b,d8,eb,e6,17, 33 
2b79 bd,29,ac,208,d2,ff,e8,01, di 
®b81 d®,26,35,1d,18,65,3d,85, b7 
0b83 3d,90,02,e6,3e,60,89,00, 51 
0bS1 85,02,e6,02,20,32,c3,20, f&6 
0bS3 e4,ff,f®,Ffb,c9,11,d0,10, 51 
Obal 20,35,c3,a6,02,e4,1a,d0, 71 
®ba9 02,22,00,88,86,02,d0,e4, e9 
®bb1 c9,91,d0,10,20,35,03,a6, FF 
®bbS 02,e0,01,F0,03,ca,dd,ec, 52 
®bc1 a6,1a,d0,e8,c9,0d,d0,08, £7 
®bc9 28,35,c3,c6,02,85,02,60, e8 
Obd1 c9,03,d0,c3,20,35,c3,a6, da 
©) ®bd9 1a,ca,8a,60,a9,80,2c,a9, 27 
 ®bel 00,85,1e,35,18,18,65,02, 58 
ObeS aa,20,F8d,e9,a4,19,cB,a6, 3d 
Obf1 1b,b1,d1,29,7F,05,1e,91, 19 
ObfS d1,c8,ca,dd,Ff4,60,a4,1b, 1F 
0c®1 c8,c8,98,18,65,f9,85,F9, 78 
0c09 90,02,86,fa,18,60,48,a9, di 
®c11 36,85,01,68,58,60,78,48, 73 
0c19 a9,34,85,01,68,60,20,e1l, 3F 
©c21 c3,a6,1a,e8,86,1c,35,18, 46 
0c29 18,65,1c,aa,20,F0,e9,a5, 9a 
0c31 d1,18,65,19,85,d1,90,02, 46 
0c39 e6,d2,20,24,ea,a4,1b,c8, a9 
©c4H1 20,d2,03,88,20,60,03,b1, 4f 
©c49 FS,20,64,03,91,F3,20,6c, cc 
0c51 c3,88,10,f3,a4,1b,c8,20, 89 
0c59 d2,c3,88,b1,f9,91,d1,88, 96 
Oc61 10,f9,20,64,03,a5,d1,38, 8b 
0c63 e9,28,85,d1,b0,02,c6,d2, 16 
' 0071 c6,1c,190,c6,20,e1,c3,a0, 57 


2079 
0c81 
2c89 
0c31 
2c39 
Ocal 
0ca9 
®cbi 
®cb9 
Occi 
8cc9 
Bcdi 
Ocd3 
®cel 
®ce3 
Ocf1 
ocf3 
0401 
04089 
@dı1 
0419 
od21 
84289 
8431 
0439 
Od41 
0d49 
0451 
0459 
Od61 
0d63 
0471 
0479 
0d81 
0483 
0431 
04399 


Odal 

0da9 

Odb1 

Odb3 
Odci 

@dcS 

Oddi 

Odd3 
Odel 

OdeS 
Odf1 

Odfg 
del 

Be03 
dell 

8813 
Be21 

Os823 
de31 

0e33 
De41 
Be43 
OeS1 
8859 
0861 
8869 
de71 

de73 
del 
0883 
deSi1 
0833 
Deal 
Oea9 
deb1 
deb3 
deci 
Bec9 
Dedi 
dedS 
Beel 
Bee 
defi 
Bef9 
oFo1 
0F03 
or11 
of13 
or21 
or29 


L 


04,40,58,c3,c8,84,1e,a5, ®b oF31 
£f9,38,8e5,18e,85,F9,b8,02, ci or339 
c6,fa,60,a0,84,20,d3,c3, 88 Bu o£41 
20,60,c3,80,00,b1,f9,99, 86 or43 
18,20,c8,c0,04,d8,f6,4c, fe OFSsı 
64,c3,85,41,84,42,a2,01, cB . 059 
20,f6,c1,a2,10,30,1d,18, c® OF61 
20,fF0,Ff,20,1e,c4,20,e4, a6 orF63 
c2,48,20,74,c3,68,f0,02, 6e = errı 
38,60,18,60,85,41,84,42, 16 u er73 
a0,00,b1,41,f0,06,20,d2, 46  eFr8ı 
FFf,c8,d0,f6,60,20,74,c3, ®2  eF8s 
a9,f8,a0,aa,20,f8,c3,b®, e3 oFs1 
61,89,04,85,ba,a9,7e,85, 42 = ers9 
b8,a9,00,a0,04,85,71,84, dc u o8fail 
72,85,b7,a9,07,85,b9,29, 16 = 0fa9 
cd,ff,a6,b8,20,c9,ff,a2, 63 = 8Fbı 
19,a9,0d,20,d2,ff,20,e1, 78 © 8693 
FF,f®O,28,30,800,b1,71,85, d9  Becı 
67,29,3f,06,67,24,67,10, 10 BFfc9 
02,09,80,70,02,09,40,20, 22 = BFdi 
d2,ff,c8,c0,28,d0,e6,38, Bi Brig 
18,65,71,85,71,98,02,e6, 9d = 8eı 
72,ca,d®,cd,a9,0d,20,d2, 85 OFfe3 
FF,28,cc,ff,a9,7e,20,c3, 34 h OFF1 
ff,38,60,39,01,20,ab,20, 6a 2: 
£f8,c3,b8,1c,30,01,a5,2c, df = 401 
91,2b,86,01,20,33,35,20, bc 1989 
6c,c3,8a,18,69,22,8d,2d, ei 1011 
d®,a5,23,69,00,8d,2e,d®, b7 = 1919 
18,4c0,64,c3,48,29,f0,4a, 32 = ıo21 
4a,4a,4a,18,69,30,20,d8, b3 = 1023 
c4,68,29,23f,69,32,90,02, 3c 1831 
a9,33,99,08,04,ad,Bb,cf, 1b ' 1939 
99,00,d8,c8,60,30,00,a9, c® = 1041 
20,39,00,34,39,00,a5,39, 88 1949 
00,26,99,00,87,c8,dd,F1, bi 19051 
60,35,d1,18,69,28,85,di1, 68 EB 1059 
90,02,e6,d2,60,a2,02,208, “42 19061 
f6,c1,a2,03,20,f6,c1,a9, 16 = 1063 
00,85,1F,85,02,208,38,c5, 6b = 1071 
20,e8B,c2,d0,04,e6,1f,dd, 33 2 1079 
06,c9,01,d0,da,c6,1f,aS, 2f = 1081 
1F,29,0f,85,1f,10,e6,20, 55 1089 
74,03,20,74,03,39,00,85, F3 = 1esı 
d4,60,a5,1f,0a,0a,0a,0a, £3 = ı0s3 
85,69,a2,03,86,6b,30,02, 73 = 10a1 
18,20,F0,ff,a2,02,86,69, c5 RUE) 
a9,00,20,96,c9,a2,02,bd, SF 10b1 
8c,cf,20,d2,ff,e8,e0,05, fd 10b9 
d®,F5,89,20,20,d2,ff,298, 51 18c1 
d2,Fff,a5,69,c9,8e0,f0,13, dS 10c9 
c9,a1,b8,08,c9,21,90,108, F6& 190d1 
c9,80,b0,0a,Bd,e4,ab,a9, 99 = 1949 
43,d0,05,38,e9,3F,89,5f, 74 10e1 
aa,85,63,03,65,6a,aa,a0d, 863 = 1063 
02,bd,l1a,ab,20,d2,ff,e8, la = ıerı 
88,10,F6,86,69,e6,6b,a6, d® 10F93 
6b,e0,13,990,9F,60,a9,00, E7 - 1101 
85,02,82,04,20,F6,c1,20, eb 1109 
e8B,c2,c9,82,b8,07,aa,fe, 48 1111 
20,d0,4c,8d,c5,d0,0c,ee, ®4 = 1119 
Bb,cf,ee,86,92,20,74,c3, b7? = ıı21 
4c,a8,c5,20,74,c3,20,74, a6 = 1129 
c3,38,68,f0,5c,ad,ab,cf, B6 1131 
£f0,57,80,00,82,05,bd,32, FF 1139 
cf,939,92,cf,e8,cB,c®,®da, cf = 1141 
dao,f4,a6,39,a5,3a,c9,ff, 7d = 1149 
f0,3Ff,20,96,09,a2,04,bd, a9 = 1151 
8c,cf,3d,9c,cf,ca,10,£f7, dd 1159 
eB,a0,00,a9,04,8d,ac,cf, ft = 1161 
bd,92,cf,99,00,04,ad,8b, 7e = 1169 
cf,99,00,d8,88,c8,ce,ac, a® = 1171 
cf,10,ed,98,18,69,23,a8, 3e 1179 
c0,55,998,df,a0,00,ae,af, ba = 1181 
cf,f0,06,88,d0,fd,ca,d®d, 2b 1189 
fa,4c,e4,37,82,05,20,f6, bl 1191 
c1,20,e4,c2,f0,07,c9,01, 72 = 1199 
d®,08,39,00,2c0,a9,ff,8d, 65 1lal 
ab,cf,c9,02,d0,03,4c,ab, 18 5 11a3 
ca,4c,74,03,a2,806,20,F6, F5 = 11bi1 
c1,39,00,85,02,20,e8,c2, 9b = 1169 
c9,01,f0,07,c9,02,d0,28, 1d 11ci 
89,80,20,39,00,85,1e,ad, S3 == 1109 
of,dd,29,7Ff,05,1le,8d,df, 42 u 11d1 
dd,28,cf,c6,b8,df,78,8d, 81 ı 11d9 
Ob,dd,Be,da,dd,8c,809,dd, 2f @ 11ei 


anuar/88 
WERE, 


a9,00,8d,08,dd,58,f®,cd, 
c9,05,F0,07,c9,06,d0,0b, 
a9,00,2c,a9,ff,8d,88,cf, 
40,56,06,c9,03,£0,07,c9, 
04,d0,0e,a9,00,2c,a9,84, 
8d,0d,dd,8d4,89,cf,4c,5b, 
c6,c9,00,d0,11,a8,85,cf, 
f0,09,8d,85,cf,ad,Ba,cf, 
8d4,29,d0,4c,5b,c6,4c,74, 
c3,a2,07,20,f6,c1,a2,14, 
a0,10,18,20,F0,ff,20,ae, 
c7,20,e4,Fff,FfO,Ffb,c9,30, 
90,1b,c9,33,b0,17,20,ad, 
c7,a4,d3,c0,12,F8,04,c®, 
15,d0,04,e6,d3,d0,df,c®, 
18,d8,db,f8,15,c9,1d,F®, 
e5,c9,9d,d0,17,20,80,c7, 
a4,d3,c0,15,f0,04,c9,12, 
d®,04,c6,d3,d0,c0,c®,0f, 
d®d,bc,f8,d7,c9,03,d0,05, 
20,74,c3,38,60,c9,0d,d2, 
b®,20,3e,c7,a0,10,b1,di, 
38,e9,30,c9,803,b0,42,0a, 
0a,03,808,85,69,c8,b1,di, 
38,e9,30,c9,803,b8,32,05, 
69,d0,04,89,92,d0,0F,c9, 
24,b0,26,c9,13,90,07,38, 
f8,e9,12,d8,09,80,8d,ae, 
cf,20,82,c7,8d,ad,cf,20, 
82,c7,48,20,74,c3,68,38, 
ae,ad,cf,ad,ae,cf,60,68, 
68,4c,d4,c6,c8,c8,b1,di, 
38,e9,30,c9,06,b®,f®,0a, 
03,03,03,85,69,c8,bl,di, 
38,89,30,c9,83,b8,e0,05, 
69,690,48,ad,bc,cf,ae,86, 
02,20,13,8a,68,4c,d2,Ff, 
a4,d3,b1,d1,8d,bc,cf,48, 
80,91,d1,18,60,39,e6,a2, 
ab,20,F8,c3,b9,f5,20,53, 
e4,18,20,15,fd,39,00,8d, 
0d,dd,68,68,4c,9e,c1,a2, 
08,20,f6,c1,32,00,a0,04, 
18,20,F0,fFf,a9,F0,a0,ab, 
20,1a,c4,20,79,c8,a08,24, 
b1,6b,91,d1,88,10,F9,20, 
£7,c4,20,6d,c8,ca,10,ee, 
a2,01,a0,01,18,20,F0, ff, 
20,38,c7,20,e4,ff,F®,Ffb, 
c9,14,F0,12,c9,83,£0,34, 
c9,94,f0,10,c9,93,d0,12, 
28,e3,c4,4c,e3,c7,20,b4, 
c8,4c,09,c8,20,99,c8,4c, 
09,c8,208,a8,07,a5,d6,d®, 
04,e6,d6,d0,86,c9,18,30, 
02,c6,d6,20,8c,c8,20,6c, 
e5,4c,06,c8,2a9,00,20,20, 
c7,20,79,c8,20,24,b1,di, 
91,6b,88,10,F9,20,£7,c4, 
20,6d,c8,ca,10,ee,a9,80, 
85,d4,85,d8,4c,74,c3,a5, 
6b,18,69,25,85,6b,390,22, 
e6,6c,60,39,29,20,04,85, 
d1,84,d2,39,00,20,a4,85, 
6b,84,6c,22,16,60,85,d3, 
d®,02,e6,d3,c9,26,90,02, 
c6,d3,60,a4,d3,c0,25,f®, 
£f9,ad,bc,cf,91,d1,a0,24, 
b1,d1,c8,91,d1,88,88,c4, 
d3,b8,f5,c8,d®,11,a4,d3, 
c0,25,F0,0b6,c8,b1,d1,88, 
91,d1,c8,c8,25,d0,f5,a9, 
20,31,d1,4c,ae,c7,a2,09, 
20,F6,c1,a9,24,85,Ffb,a9, 
£b,85,bb,a9,00,85,bc,a9, 
01,85,67,39,08,85,ba,a9, 
60,85,b9,20,d5,f3,a5,ba, 
20,b4,ff,a5,b9,20,96,Ff, 
a9,00,85,90,a2,03,86,02, 
a8,03,84,fb,a6,02,30,01, 
18,20,F0,ff,a9,92,20,d2, 
EfF,20,85,ff,85,fc,a4,90, 
d®,43,20,a5,ff,c6,fb,d®, 
fd,a6,fc,20,96,c9,20,7a, 
c9,20,a5,ff,36,30,d0,2d, 
aa,f®,0c,36,d3,e0,1b,b®, 
03,20,d2,Fff,4c,27,c9,86, 


11e9 
ı11F1 
11F9 
1201 
1209 
1211 
1219 
1221 
1229 
1231 
1239 
ı241 
1249 
1251 
1259 
1261 
1269 
1271 
1279 
1281 
1283 
1231 
1299 
12a1 
1239 
12b1 
12b3 
12c1 
1209 
12d1 
12d9 
12e1 
12e9 


1 121 


12F9 
1301 
1309 
1311 
1319 
1321 
1329 
1331 
1339 
1341 
1349 
1351 
1359 
1361 
1369 
1371 
1379 
1381 
1389 
1391 
1399 
1381 
1339 
13b1 
13b9 
13c1 


| 1309 


13d1 


' 13d9 


13e1 
13e9 
13£1 
13£9 
1401 
1409 
1411 
1419 
ı421 
1429 
1431 
1439 
1441 
1449 
1451 
1459 
1461 
1469 
1471 
1479 
1481 
1489 
1491 
1499 


02,a5,02,20,802,c9,15,d®, 3F 
b9,39,13,a0,ac,20,F8,c3, 43 
b®,0e8,20,6f,c9,a9,03,85, fi 
02,20,02,d0,a5,20,64,c9, b5 
20,42,£6,40,74,03,a2,0a, di 
20,f6,c1,20,e4,c2,4c,74, c5 
c3,a9,02,80,89,85,3d,84, Sa 
3e,4c,Be,c2,a2,ff,e8d,bd, 6c 
8c,cf,c9,30,F0,f8,e0,05, 28 
90,02,a2,04,bd,8c,cf,20, ®a 
d2,ff,e8,e0,05,d0,F5,60, a5 
Be,b5,cf,8d,b6,cf,a2,00, a4 
a9,30,9d,8c,cf,ad,b6,cf, 92 
dd,al,cf,S0,22,d0,08,ad, 29 
bS,cf,dd,a6,cf,980,18,ad, c7 
b5S,cf,38,fd,a6,cf,8d,bS, di 
cf,ad,b6,cf,fd,al,cf,8d, a6 
b6E,cf,fe,8c,cf,de,d6,e8, 45 
e0,05,d0,cc,60,22,0d,20, Ba 
f6,c1,20,e4,c2,c9,02,d0, 3d 
03,4c,74,c3,c9,01,d0,30, cf 
a9,08,85,ba,20,b4,ff,a9, 2e 
6f,20,96,Ff,a2,Ff,e8,20, 51 
a5,ff,9d,c1,902,c9,0d,d®, Fa 
f5,Be,4c,838,88,c0,02,28, bc 
ab,ff,a2,de,20,f6,c1,20, ®b 
64,c9,20,74,03,4c,d8,c9, cd 
a2,0f,20,F6,c1,a2,02,80, 3£ 
01,18,20,f0,FfFf,20,ae,c7, df 
20,e4,ff,f®,Ffb,c9,20,30, ®e 
0c,c9,60,b0,08,20,30,c07, b5 
20,8c,c8,d0,e8,c9,0d,f®, c9 
20,c9,1d,f8,f8,c9,9d,F8, 59 
ec,c9,03,£f0,54,c9,14,d0, 07 
06,20,b4,c8,4c,26,ca,c9, £93 
84,d0,cd,28,99,c8,4c,26, 68 
ca,a9,00,28,80,c7,a0,26, 54 
88,b1,d1,c9,20,F0,f9,c8, +48 
98,c9,81,f0,2c,85,b7,a2, 9d 
00,20,01,b1,d1,20,68,cf, fb 
9d4,c0,02,8e8,c8,c4,b7,d®d, e3 
f2,89,0d,9d,c0,02,89,c0, Sf 
a0,02,85,bb,84,bc,a9,08, di 
85,ba,a9,6f,85,b9,20,d5, 1d 
f3,20,74,c3,39,00,85,d4, dd 
85,d8,4c,d8,c9,a9,80,8d, 35 
83,02,82,0b,20,f6,c1,a2, 67 
0c,20,£6,c1,39,00,85,92, “c 
28,e4,ca,20,e8,c2,d0,06, d6 
ee,af,cf,4c,be,ca,c9,01, 7d 
d®d,06,ce,af,cf,4c,be,ca, 5e 
20,74,c3,20,74,c3,39,00, a9 
8d,Ba,02,4c,37,c6,a2,82, ch 
a0,08,18,20,f0,ff,ae,af, 7£ 
cf,a9,00,20,96,c9,a2,02, 73 
bd,8c,cf,20,d2,ff,eB,e®d, ba 
05,d8,F5,68,39,01,8d,b2, Hd 
cf,a2,10,20,F6,c1,a2,0b, 89 
a0,15,18,20,F0,fF,a9,00, Ic 
8d,b1,cf,8d,82,cf,8d,b4, aa 
cf,20,4d,cc,280,59,cc,a9, la 
01,84,84,cf,20,e4,Fff,fo, 75 
fb,ae,82,cf,c9,30,90,20, 088 
c9,32,980,16,e0,01,f0,18, c6 
c9,33,90,08,20,00,F0,10, cf 
c9,41,90,0c,c9,47,b0,08, 34 
23,38,20,97,00,40,2a,chb, 52 
c9,af,d®,0f,e0,00,dd,cc, bd 
a80,15,b1,d1,49,0d,91,d1, 66 
“4c,2a,cb,c9,bf,d®,0a,20, Fd 
d9S,cc,a9,01,8d,82,cf,d®, be 
ab,c9,ac,d®,0b,20,d9,cc, b6 
a3,008,8d,82,cf ,‚4c,22,cb, 8d 
c9,b4,d8,803,20,d9,cc,a9, “45 
80,84,82,cf,d0,ef,c9,03, 4d 
d®,0b,a9,00,8d,b2,cf,“c, ca 
74,c3,4c,2a,cb,c9,2b,f®, 198 
10,c9,2d,f0,2c,c9,2a,fd, 94 
08,c9,2f,f0,04,c9,5e,d®, 49 
14,8d,b4,cf,20,d9,cc,a2, de 
b7,a0,cf,e65,01,20,d4,bb, Fa 
c6,801,4c,22,cb,c9,bc,d®, dc 
0b,a9,008,8d,b4,cf,8d,bl, 97 
cf ,4c,1f,cb,c9,3d,d@0,05, 2d 
ad,b4,cf,d®,1d,c9,28,d®, ab 
12,ae,82,cf,d®,b4,ae,b®, 32 
cf,30,af,a2,Fff,Be,bd,cf, Fd 


14al 
14a9 
14b1 
14b9 
14c1 
1409 
14d1 
1449 
14e1 
1483 
ı4F1 
ı14F9 
1501 


1503 
1511 
1519 
1521 
1529 
1531 


1539 
1541 
1549 
1551 
1559 
1561 


1563 
1571 
1579 
1581 
1589 
1591 
1598 
15al 
1539 
15b1 
15b9 
15c1 
15c9 
15d1 
15d9 
15e1 
1583 
ı5Ff1 
15F9 
1601 
1609 
1611 
1619 
1621 
1629 
1631 
1639 
1641 
1649 
1651 
1659 
1661 
1663 
1671 
1679 
1681 
1683 
1691 
1699 
16a1 
15639 
16b1 
16b3 
16c1 


© 1669 


16d1 
16d8 
16e1 
1689 
16F1 
16£9 
1701 
1703 
1711 
1719 
1721 
1729 
1731 
1733 
1741 


4c-,50,cb,c9,b1,d®,a3,4c, 
fb,cd,20,d9,cc,86,01,ba, 
Be,8l,cf,ae,b4,cf,a9,b7, 
ad,cf,e®d,2b,f0,17,e0d,2d, 
£f0,19,80,2a,f0,1b,ed,2f, 
f®0,1d,280,8c,ba,a5,61,20, 
7b,bf,4c,48,cc,20,67,b8, 
4c,40,cc,20,50,b8,4c,4®, 
cc,20,2B,ba,4c,48,cc,20, 
OFf,bb,c6,81,ad,bi,cf,Ff®, 
03,4c,5e,ce,4c,22,cb,a9, 
00,a2,07,95,61,ca,10,Fb, 
4c,1c,cd,ad,82,cf,f0,03, 
“c,af,cd,s6,01,20,dd,bd, 
c6,21,20,1c,cd,a2,81,bd, 
00,01,f0,1b,c9,45,f0,06, 
20,37,cc,28,d0,£1,a0,21, 
29,3f,91,d1,e8,c8,bd,20, 
01,F0,04,91,d1,d@,F5,a0, 
15,2d,008,01,91,d1,4c,d9, 
cc,ac,8B4,cf,f®0,05,48,20, 
1c,cd,68,ac,b3,cf,c®,®a, 
b0,15,48,a0,17,b1,d1,88, 
91,d1,c8,c8,c0,20,d0,F5, 
88,68,91,d1,ee,b3,cf,4c, 
c8d,cc,a8,15,08,c0,1f,F®, 
11,b1,d1,c9,20,f0,Ff5,c9, 
30,d0,07,89,20,31,dl,ce, 
b3,cf,60,ad,82,cf,f®,03, 
4c,45,cd,a8,15,a2,00,bl, 
d1,c9,05,d0,02,09,40,3d, 
002,01,e8,c8,c0,25,dd,ef, 
a9,00,9d,00,01,29,00,a0, 
01,85,73,84,7b,e5,01,ba, 
8e,81,cf,20,79,00,20,F3, 
bc,c6,01,ad,bi,cf,f®,05, 
68,68,4c,58,ce,60,a9,20, 
a8,15,91,d1,c8,c0,25,d2, 
£f9,89,00,8d,b3,cf,8d,b®, 
cf ,Bd,84,cf,a0,22,ad,82, 
cf,F®,0b,c9,01,d0,03,a9, 
02,2c,29,88,31,d1,60,c9, 
01,F0,33,20,35,cd,30,15, 
e6,01,84,1F,b1,d1,c9,20, 
f0,12,b0,05,18,69,09,390, 
03,38,e9,30,48,a5,61,F®, 
05,18,69,04,85,61,68,f®, 
03,20,7e,bd,at,1f,c8,c®, 
22,d0,d7,c6,01,60,20,a5, 
cd,a80,15,86,01,84,1F,bi, 
d1,c9,20,F0,10,38,89,30, 
48,35,61,F0,902,e6,61,68, 
F0,03,20,7e,bd,a4,1Ff,cB, 
c0,22,d0,81,c6,01,60,a3, 
00,82,08,95,5d,ca,10,Fb, 
60,48,86,01,20,9b,bc,c6, 
01,20,1c,cd,68,c9,01,F®, 
28,a2,00,b5,62,29,F0,4a, 
Ya,4a,4a,20,db,cd,b5,62, 
29,0F,20,db,cd,e8,e®,04, 
d®d,e3,4c,d9,cc,c9,0a,b®, 
03,693,38,2c,8e9,09,4c,97, 
cc,a2,08,06,65,90,03,a3, 
31,2c,39,30,20,97,cc,ca, 
dd,f1,4c,d9,cc,ad,B2,cf, 
f0,03,4c,66,cb,a9,05,30, 
21,91,d1,20,e4,ff,Fo,Fb, 
c9,30,98,16,c9,3a,b0,12, 
38,e9,00,48,30,24,b1,di, 
88,91,d1,68,c8,91,d1,4c, 
293,ce,c9,af,d®,0a,a0,22, 
b1,d1,49,0d4,91,d1,d0,d3, 
4c,2f,ch,39,44,a8,ce,Bd, 
00,03,8c,81,03,60,8a4,10, 
03,4c,74,a4,ad,b2,cf,d®, 
03,4c,3a,34,ae,8l,cf,ca, 
ca,3a,a9,01,8d,b1,cf,60, 
28,1c,cd,a9S,05,30,15,31, 
d1,20,e4,ff,c9,bc,d®,Ff$9, 
a2,36,86,01,32,00,8e,bl, 
cf ,4c,2f,cb,a2,11,20,F6, 
c1,82,07,0,06,18,20,F2, 
FF,20,38,c7,20,e4,ff,Ff®o, 
£b,c9,22,£f0,£7,c9,20,30, 
17,c9,60,b2,13,20,30,c7, 


49 
ca 
2b 
133 
08 
7d 
77 
e2 
bil 
8b 
29 
b8 
33 
5b 
03 
25 
Sa 
la 
3e 
63 
1b 
33 
dS 
24 
a5 
81 
7E 
Be 
12 
793 
68 
ad 
a5 
10 
e3 
cb 


1749 
1751 
1759 
1761 
1769 
1771 
1779 
1781 
1789 
1791 
1799 
17a1 
1739 
17b1 
17b3 
17c1 
17c9 


17d1 
1749 
17el 
1783 
17F1 
17£9 
1801 
1809 
1811 


1819 
1821 
1823 
1831 
1839 
1841 
1843 
1851 
1859 
1861 
1863 
1871 
1879 
1881 
1883 
1891 
1839 
1Bal 
1839 
18b1 
18b9 
18c1 
18c9 
18d1 
18493 
1Bel 
18e3 
18F1 
ı18F9 
1991 
1909 
1911 
1919 
1921 
1929 
1931 
1939 
1941 
1949 
1951 
1959 
1961 
1963 
1971 
1979 
1981 
1989 
1991 
1999 
19a1 
1939 
19b1 
19b9 
19c1 
19c9 
19d1 
1949 
19e1 
1989 


r 


664 LISTIN 


a4,d3,c0,06,b9,02,86,d3, 
c0,14,90,02,c6,d3,d0,d9, 
c9,1d,F®,e9,c9,9d,f2,e5, 
c3,03,d80,03,4c,74,c3,c9, 
2d,d®,c9,39,00,20,a0,c7, 
a0,14,88,b1,d1,c9,20,f0, 
£f9,c0,05,f0,e7,8c,lc,ac, 
a2,20,20,06,b1,d1,20,68, 
cf,9d,c8,02,e8,c8,cc,ic, 
ac,90,f1,f@,ef,a®,20,b3, 
1d,ac,3d,c®,02,88,c8,c0, 
06,d0,f4,8e,1c,ac,20,74, 
c3,28,74,03,20,22,cf,a9, 
04,20,38,cf,28,7c,cf,ae, 
1c,ac,a9,43,9d,bb,02,20, 
22,cf,a9,d8,20,38,cf,20, 
7c,cf,38,60,39,64,a2,08, 
a0,02,20,ba,ff,ad,ic,ac, 
a2,c0,30,02,20,bd,ff,4c, 
cd,ff,85,6a,a2,64,20,c9, 
Ff,a8,00,84,69,38,20,de, 
Ff,a5,63,20,d2,ff,a2,03, 
b1,69,208,d2,fF,c8,d2,FB, 
e6,6a,ca,d®,f3,b1,69,20, 
d2,ff,c8,c®,e9,99,f6,4c, 
cc,ff,8d,be,cf,29,3F,0e, 


be,cf,2c,bco,cf,10,02,08, 
80,79,02,09,40,60,39,64, 
4c,c3,ff,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,00,Ff,20,20,20,20, 
20,20,20,29,20,20,20,20, 
20,28,20,27,03,00,00,00, 
10,e8,64,03,01,00,00,00, 
00,00,20;00,00,00,00,00, 
00,00,00,00,00,00,00,20, 
01,2c,01,12,0d,28,0F,0e, 
20,2b,c4,7a,ce,a4,c5,cc, 
c8,d3,c9,52,c6,32,c6,99, 
c4,83,c5,d5,c7,82,cb,bb, 
c7,00,00,05,80F,80,08,0®c, 
08,07,12,00,02,0F,008,0a, 
0a,008,090,03,805,16,1c,02, 
14,08,05,88,0e,00,00,1e, 
00,14,05,00,00,14,05,03, 
09,03,04,87,09,0b,0a,25, 
1a,06,10,908,08,00,25,10, 
0e,0d,02,12,03,904,04,0B, 
02,17,12,01,03,03,03,01, 
02,02,02,86,F5,F8,19,2d, 
44,63,b1,02,02,c4,cb,fb, 


OF,c®,2e8,54,eB,38,28,28, 


a9,39,39,39,a9,a9,a9,a9, 
s9,39,a3,02,aa,aa,aa,®8, 
48,41,52,44,43,4f,50,59, 
08,53,41,56,45,20,50,49, 
43,03,53,45,54,20,33,4P, 
Yc,4F ‚52,99, 44,49,52,45, 
43,54,4f,52,59,07,20,46, 
4c,4f,50,50,59,27,20,20, 
43,4c,4f,43,4b,07,20,20, 
54,52,41,43,45,09,52,45, 
4e,45,57,28,50,52,47,09, 
41,53,43,49,49),24,54,41, 
42,07,20,48,4f,54,49,43, 
45,89,43,41,4c,43,55,4c, 
41,54,45,08,54,55,52,4e, 
20,4f,46,46,FF,02,00,Ff, 
02,09,20,41,53,43,20,20, 
43,48,52,00,00,00,920,00, 
00,00,20,00,00,00,00,00, 
00,00,00,00,00,020,20,00, 
00,00,07,28,20,20,4e,45, 
58,54,09,20,50,52,45,55, 
49,4f,55,53,Ff,03,06,42, 
4F,52,44,45,52,07,92,41, 
43,4b,47,4e,44,05,20,20, 
50,45,48e,ff,01,08,54,52, 
41,43,45,20,4Ff,48,09,54, 
52,41,43,45,20,4Ff,46,46, 
89,53,45,54,20,53,58,45, 
45,44,FF,902,08,53,54,4f, 
59,280,41,4c,41,52,4d,09, 
20,53,45,54,20,54,49,4d, 
45,08,20,53,45,54,290,41, 
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ı9F1 
ı19F9 
1a®1 
1a03 
lalıl 
1a19 
1a21 
1a29 
1a31 
1a39 
1a41 
1a49 
1a51 
1a59 
1a61 
1a693 
1a71 
1a79 
1aB1 
1a83 
1a31 
1a99 
laal 
laa3 
labl 
lab9 
lacı 
1ac9 
1adı 
1ad3 
lael 
lae3 
lafı 
1af9 
1b®1 
1b09 
1b11 
1b19 
1b21 
1b29 
1b31 
1b39 
1b41 
1b49 
1b51 
1b59 
1b61 
1b63 
1b71 
1b79 
1b81 
1b89 
1b91 
1b99 
ibal 
1ba9 
1bb1 
1bb9 
i1bci1 
1bc9 
1bdi1 
1bd3 
l1bel 
l1beS 
1bf1 
1bF9 
1c01 
1c09 
1c11 
1c19 
lc21 
1c29 
1c31 
1c39 
1c41 
1c49 
1c51 
1c59 
1c61 
1c63 
1c71 
1c79 
1c81 
1c83 
1c891 
1c99 


4c,41,52,4d,09,20,41,4c, 
41,52,4d,20,4f,4e,0a,20, 
41,4c,41,52,4d,20,4F,46, 
46,03,44,49,53,58,4c,41, 
59,208,4f,4e,0b,44,49,53, 
5®,4c,41,59,20,4Ff,46,46, 
Ff,03,08,45,48,54,45,52, 
20,54,49,4d,45,07,20,20, 
20,33,20,20,33,06,52,45, 
54,55,52,48,0d,20,20,5#4, 
52,41,43,45,20,53,50,45, 
45,44,10,20,20,38,20,20, 
20,20,58,58,58,20,20,20, 
32,35,35,10,51,55,49,43, 
4b,20,53,50,45,45,44,20, 
53,4c0,4f,57,08,44,45,43, 
52,45,41,53,45,08,49,"4e, 
43,58,145,41,53, 415; fE,08, 
0d,20,53,45,4e,44,20,43, 
4F,4d,4d,41,4e,44,0e,52, 
45,41,44,20,45,52,52,4f, 
52,28,44,53,47,Ff,05,24, 
45,18 ,54,45,52,28,43,4£, 
4d,4d,41,48,44,20,21,20, 
50,52,45,53;53,20,.36,53, 
54,4f,50,3e,20,54,4F,20, 
51,55,49,54,00,00,190,c0, 
c0,c0,c0,c0,c0,c®,b2,c®, 
c0,c8,c0,c0,c0,c0,c0,0F, 
20,44,20,44,45,5a,20,dd, 
20,2b,20,23,20,5e,20,0f, 
20,4B,20,48,45,58,20,dd, 
20,2d,20,2F,20,3d,298,10, 
20,42,20,42,49,4e,20,ab, 
c8,c0,c0,c0,c0,c0,c0,c0, 
of,c0,c8,c0,c0,c0,cd,cd, 
bd,20,590,20,2b,2f,2d,20, 
of,20,45,20,45,58,50,20, 
20,20,43,28,43,4c,52,20, 
10,c0,c8,c8,c0,c®,c0,c®, 
c0,c80,c0,c8,c0,c0,c0,c®, 
c0,0Ff,58,52,45,53,53,20, 
43,3d,20,2b,28,4b,45,59, 
20,0Ff,3c,53,54,4f,50,3e, 
20,54,4f,20,51,55,49,54, 
20,0e,45,48,54,45,52,20, 
45,49,40,45,4e,41,4d,45, 
208,48,41,52,44,43,4f,50, 
59,20,52,45,4e,45,57,20, 
59,52,47,00,20,20,20,20, 
20,45,58,49,54,20,20,20, 
20,28,20,4e,55,4c,3Ff,3F, 
SEL3E,3E, 3, 38,38, 38, 38, 
3£,3F,57,48,54,3F,3F,3F, 
JE, 30,3f,53,43,41,53,43, 
25,30 ,36;38,38 3838,98, 
3f,3F,43,52,20,47,4b,53, 
338,38, 3E, 36,30, 44,57, 
4e,52,56,53,48,4d,45,44, 
a AR Be . =) Be SE 
IE, 38 ,I38,30,36 3838, 
ar. ,3r ‚36,38 ,45,53,43,50, 
45,44,52,48,54,47,52,4e, 
42,490,55,53,580,43,36%3F} 
30,46 ,00,47730 38.36.36, 
3e,38,36,38,38,46,31,80, 
46,33,20,46,35,20,46, 37, 
20,46,32,20,46,34,20,46, 
36,20,46,38,20,43,53,20, 
47 ,47,53,3f,3F,3F,42,40, 
4b,55,50,20,52,4F,46,43, 
4c,52,49,4e8e,53,42,52,4e, 
4c,52,44,47,59,31,47,59;, 
32,40,47,52,40,42,55,47, 
53,33,50,55,52,4c,46,54, 
59,45,4c,43,59,4e,53,598, 
43,3f,3Ff,3F,20,20,20,51, 
S5,49,54,20,48,45,4c,50, 
00,4e,4f,54,49,43,45,2d, 
42,4f,41,52,44,20,20,50, 
52,45,53,53,20,12,53,54, 
4f,50,92,20,54,4F,28,51, 
55,49,54,00,43,4f ,4e,54, 
49,42,55,45,00,20,28,56, 
2c,50,2c,57,b0,7d,ad,60, 
20,60,a8,7d,bd,00,80,00, 
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FUNKTIONEN SCHNELL ANALVOIERT 


unktionen sind Vorschrif- 
ten, nach der zwei Zahlen- 
mengen miteinander ver- 
knüpft werden. Daraus ergibt 
sich eine neue Menge geordneter Zah- 
lenpaare, welche man in ein Koordina- 
tensystem eintragen kann. Das ist 
noch relativ leicht verständlich, aber 
wer sich schon einmal mit mathemati- 
schen Funktionen befaßt hat, weiß, 
wie zeitaufwendig es sein kann, den 
Graphen einer Funktion zu berechnen. 


Funktionseingabe mit 
einem Full-Sereen- 
Editor 


Da bietet es sich an, die Berechnungen 
dem Computer zu überlassen: „FAN“ 
— ein Programm zur umfassenden 
Funktionsanalyse bietet hierzu genau 
die richtige Software. Um „FAN“ zu 
starten, lädt man das Ladeprogramm 
(Listing 1) mit LOAD“name“,8 und 
startet es mit RUN. Danach wird das 
Hauptprogramm und die Maschinen- 
routine (Listing 2 und 3) nachgeladen. 
Sind alle Daten im Rechner, meldet 
sich „FAN“ mit dem Hauptmenü: 


1. Funktionseingabe (Editor) 

Über den Editor können sämtliche 
Funktionsarten übersichtlich eingege- 
ben werden. Alle Tastenfunktionen 
bleiben erhalten. Das Ende der einge- 
gebenen Funktion muß mit „,‚“ ge- 
kennzeichnet sein. Der Eingabemodus 
läßt sich durch gleichzeitiges Drücken 
der beiden SHIFT-Tasten unterbre- 
chen. Die Funktion ist dann allerdings 
noch nicht erfaßt und kann nicht bear- 
beitet werden. 


Eingabebeispiele: 

— kartesische Koordinaten 
Y=SIN(X)’ 

— Polarkoordinaten 
R=W/?2’ 

— Parameterfunktionen 
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MIT FAN 


„FAN“ nimmt mathematischen 
Funktionen das letzte 
Geheimnis: Nullstellen, 

Schnittpunkte, Ableitungen, der 

Graph und vieles mehr werden in 
kürzester Zeit berechnet. 


X=10*COS(T), Z=5*SIN(2*T)’ 
W=T12/5, R=30+20x*SIN(T)’ 
— Abschnittsweise definierte Funk- 


tionen 

xe1l v6 

x>1 :Y=—X 
IEXZ=3 ı Y=X#+X 
xX>5 LER! 


Die Eingabe ist nicht zeilenorientiert. 
Alle Leerzeichen werden bei der Bear- 
beitung ignoriert. Bedingungen dürfen 
nicht länger als 40 Zeichen, Funk- 
tionsausdrücke nicht länger als 70 
Zeichen sein. 


2. Funktionsgraph 

Vor dem Anwählen dieses Menüpunk- 
tes muß bereits eine Funktion im Spei- 
cher existieren. Folgende Eingaben 
werden verlangt: 


Zeichen der Grundfunktion? 

Zeichen der 1. Ableitung? 

Zeichen der 2. Ableitung? 

Zeichen des Integrals? 

Es besteht des weiteren die Möglich- 
keit, Ableitungsfunktion und Integral 
mit einem Multiplikator zu versehen, 
um Unterschiede im Kurvenverhalten 


Selbst trigono- 
metrische Rela- 
tionen lassen 
sich mit FAN 
problemlos dar- 
stellen. 


deutlicher zu machen. Bei kartesischen 
Funktionen werden zusätzlich die Ko- 
ordinaten des Achsenschnittpunktes 
sowie der Bereich, der von beiden 
Achsen umspannt wird, abgefragt. 


Liegt eine Polarfunktion vor, muß 
Anfang und Ende der Winkelkoordi- 
nate und der maximale Radius bezüg- 
lich der Vertikalen eingegeben werden. 
Die Ausführung kann jederzeit durch 
Betätigen beider SHIFT-Tasten abge- 
brochen werden. Ist alles gezeichnet, 
verändert sich die Rahmenfarbe des 
Bildschirms. 


3. Zusätzlicher Graph 

Hier besteht die Möglichkeit, über ei- 
nen bereits vorhandenen Graphen an- 
dere Funktionen zu zeichnen. 

Die Achseneinteilungen können dabei 


nicht mehr geändert werden. 

4. Funktionsanalyse 
Parameterfunktionen lassen sich aus 
Genauigkeitsgründen nicht analysie- 
ren. Für alle anderen Funktionen muß 
der Anfang des zu untersuchenden Be- 
reichs, das Ende sowie die Schrittweite 
angegeben werden. Die Größe der 
Schrittweite wirkt sich lediglich auf 
das Erkennen von besonderen Punk- 
ten, nicht jedoch auf die Genauigkeit 
der berechneten Werte aus. Bei der 
Ausführung wird die linke Grenze des 
Intervalls angezeigt, welches im Mo- 
ment in Bearbeitung ist. 


Alle Ausgaben werden auf Diskette 
unter dem Namen „Puffer“ gespei- 
chert. Untersucht werden Nullstellen, 
Extremwerte, Wendepunkte, einfache 
Polstellen, doppelte Polstellen und das 
Krümmungsverhalten. 

Nach Beendigung der Berechnung läßt 
sich das Ergebnis auf Drucker oder 
auf Bildschirm ausgeben. 


5. Wertetabelle 
Mit diesem Menüpunkt kann man sich 
eine Wertetabelle der eingegebenen 


System: C64/Floppy 

Art: Anwenderprogramm 
Sprache: Basic/ Assembler 
Programmname: FAN 


1908 poke SS,®:poke 56,1608:clr :poke 
808, 234:sys 3328 13348 
poke 53288,11:poke 53281,11:poke 
646,7 12681 
sys 623255: print "Cele]” chr$ (8): 
poke 650,128:gosub 73108 132098 
def fn alx)"=int (10000*x+,5)/ 
10000 32393 
gosub 7418:cyS="9” 21486 
on a goto 1190,2660,1160,43S0, 
6870,1090,1179,1060,5010, 1120 
34447 


1019 
10208 
1038 


1948 
1059 


1060 a-B:a$="Floppy":gosub 7849: Fm$- 
"puffer”:gosub 79008 24262 
1079 if Fm-E2 goto 1940 31244 
1888 print "[cir,Sdown]":goto S288 
21181 
1098 gosub 7898 1679 
11808 if peek (2)-® goto 1108 31485 
1118 gosub 7688:goto 1949 21328 


11228 print "Cclr,3down]” tab(8)"e fuer 
ende betaetigen":poke 138,8:poke 


649,10 34331 


1130 get a$: if a$=-"" goto 1130 21376 
1140 if as<>”e” goto 1948 31354 
1158 sys 64738 3717 
1160 b$=-"®":cy$="1":gosub 4590:goto 
2660 12582 
1179 a-4:a$-"drucker”:gosub 7849: gosub 
7838 33215 
1180 poke 649,10:sys 3397:poke 649,0: 
gosub 7688:goto 8938 33916 
1190 print "Ccir,l1spaces,cbm a, 
18shift *,cbm s]" J2142 


1200 print "[lispaces,shift -] 
funktionseingabe [shift -]” 


12798 


Funktionen erstellen lassen. Hierzu ist 
wiederum Anfang und Ende des zu 
untersuchenden Bereichs anzugeben. 
Die Schrittweite gibt auch hier den re- 
lativen Abstand der einzelnen X-Wer- 
te an. 


6. Grafikbildschirm 
Der aktuelle Grafikbildschirm wird 
gezeigt. 


7. Hardcopy 
Es erfolgt eine Hardcopy des Grafik- 
bildschirmes. 


8. Puffer anzeigen 

Hiermit kann die Pufferdatei der zu- 
letzt behandelten Funktion auf Bild- 
schirm oder Drucker ausgegeben wer- 
den. 


9. Diskettenoperationen 


Unter diesem Menüpunkt sind die für 


das Programm relevanten Disketten- 
operationen zusammengefaßt. 

— Funktion laden 

Laden einer Funktion und sämtlicher 
im Programm verwendeter Parameter. 
— Funktion speichern 


print "Cllspaces,chbm z,18shift ®, 


cbm x]":print 12645 
for a=1 to 100:next 1883 
a$="paramster[6spaces]":b$-ab$: 
gosub 76928: ab$-b$ 13488 
a$="polar[l19spaces]":b$=ac$:gosub 
7690: ac$=-b$ 33456 
a$=-"abschnittsweise" : b$=-aa$:gosub 
7698: aa$-b$ 24192 
print 3153 
a=i+(1 and ab$="j")+(C2 and ac$- 
")"):aa-a 13378 
on a goto 1290,1318,1330,135® 
32197 
print "x fuer abszisse, y fuer 
ordinate"” 13685 
print "benutzen”:goto 1378 11903 
print "t fuer parameter, x fuer 
abszisse, ” 33448 
print ”y fuer ordinate benutzen”: 
goto 1379 13298 
print "w fuer winkel, r Fuer 
radius” 12874 
print "benutzen”:goto 1378 11903 
print "t Fuer parameter, w Fuer 
winkel,” 13764 
print "r Fuer radius benutzen” 
12197 
print ":[C2spaces], C2spaces]Jals 
trennzeichen verwenden” 12903 
print "ende mit <’> markieren” 
12597 
1398 print "modus mit <shift>+*<return> 
[2spaces]verlassen” 234259 
1488 print :poke 549,19 1857 
' 1418 For a=1 to ab:print y$Ca);:next 
31847 
1420 F-d:g-14 1876 
1438 h=40*g+fF+1924:a=-peek (h):poke h, 


62:poke S4272+h,1:1=f+49*(g-14) 
15936 


= 1440 get a$:if peak (2)=-3 goto 898398 

7 J1738 

| 1458 if a$=-"" goto 1449 31262 
1468 poke h,a:poke 54272+h,7 31904 


Die aktuelle Funktion und die dazuge- 
hörigen Parameter werden abgespei- 
chert. 

— Grafik laden 

Laden einer Grafik. 

— Grafik speichern 

Speichern der mit „Funktionsgraph“ 
erstellten Grafik. 

— Directory 

Ausgabe aller Dateien, die von „FAN“ 
erstellt wurden. 


10. Programmende 
Eingabehinweise: Der Lader (Listing 
3) muß zuerst abgetippt und abgespei- 
chert werden. Ist das Hauptprogramm 
(Listing 1) fertig abgetippt, muß es 
nach der Befehlsfolgee POKE 
43,1:POKE 44,64:POKE16384,0: 
NEW mit LOAD“name“,8 in den 
Rechner geladen und unter dem Na- 
men “FAN.HPT“ abgespeichert wer- 
den. Listing 2 beinhaltet die Hardco- 
pyroutine. 

Dieses Listing ist mit dem Checker ein- 
zugeben. Als Startadresse ist 0a00 an- 
zugeben. 


0 


(P. Späth, A. Rzany) 


1478 if a$<>chr$ (20) or f=® then 1510 
12031 
1488 For a=h to 1063+40*g 31585 
1490 poke a-1,peek (a):next a Jı221 
1500 poke a-1,32:f=f-1:goto 1748 12037 
151® if a$<>chr$ (148) then 1550 11682 
1520 for a-1063+49*g to h+1 step -1 
12329 
1538 poke a,peek (a-1):next a 21212 
1540 poke a,32:goto 1430 21312 


1550 if a$=-chr$ (157) then F=f-1:goto 
1748 J2426 
if a$<>"'" then 1608 31496 
For a=1584+i to 1583+49*cCg-13): 

poke a,32:next 13192 
print "Chome)":for a=1 to g:print 
"Cdown)”; :next J1545 


15608 
1578 


15808 


15908 for a=g to 22:print "C4dspaces]"; 
:next :ab=i*1 13534 
1608 if a$-chr$ (29) then 1738 231545 
1610 if a$=chr$ (17) then g="g+l:goto 
1748 32145 
1620 if a$=-chr$ (145) then g=g-1:goto 
1748 12336 
1638 if a$=-chr$ (13) then f=®:g=g+1: 
goto 1748 J2616 
1648 if a$-chr$ (19) then 1429 21441 
1658 if a$<>chr$ (147) then 1698 11713 
1668 for a=1 to ab:y$(a)=" ":next 
11768 
1678 print "Chome,13down]”:for a=® to 
9 11618 
16808 print "[40spaces]";:next :ab=®: 
goto 1428 313238 
1538 if a$=-chr$ (141) then 1798 11385 


1708 if a$<" ” or aS>”«" then 1430 


J2228 


1710 poke h,asc (a$)-(64 and a$>="a" 
and a$-"«") 33313 
1728 if i+1>ab then ab=-i+1 31695 
1738 E=-f+1 1398 
1748 if £>39 then F=®:g=g*+1 31874 
175@ iF F<® then f=-39:g=g-1 21921 
1768 if g<14 then g-22 131383 
1778 if g>22 then g-14 31354 
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1780 
1790 


1890 
1810 
1820 
1830 


1840 
1850 


1868 
1870 


1880 
1890 


19980 


1910 
1920 


1930 
1940 


1958 
19698 


1979 
1980 


1990 
2008 
2010 


2020 
20830 


2040 
2050 


2068 


2070 
2080 
2030 
2100 


2110 


2120 
2130 


21408 


21508 
2168 


2170 
21808 
2190 
22008 
2210 
2220 
2230 
2240 
2250 
2260 
2270 


2280 
2290 
2300 
23108 
2320 
2330 
2340 
2350 
2360 
2378 
2380 


2390 
2400 
2410 
2420 
2430 
2440 
2450 
2468 
2470 
2480 


goto 1439 1599 
for a=1 to ab:yS(a)-chr$ ( peek 
(a+1583)+(64 and peek (a+1583)< 


32)) 34823 
if y$Ca)="'" then 1820 21387 
next 1130 
if aa$=-"j" then 1970 J1262 


b=9:0=-@:u1$="":z18="".x18="-1":08 


"ON yag=rN.,xös=Ng" 14598 
b=b+1:if b>=a goto 19498 31864 
bS-ySCb):if b$=-" " then 1840 
21817 
if b$=-"," then c=1:goto 1849 
31929 
if b$<"a” or b$>"z” then 1920 
12190 
if b=-® or b=a then 1920 21658 


if ySCb-1)>="a” and ySchb-1)<="z" 
then 19208 13328 


if ySCb+1)>="a” and uSCchb+1)<“-"z" 
then 1929 33292 
gosub 2698 1589 
if c=® then ul$-y1$+b$:goto 1840 
32351 
z1$-z1$+b$:goto 18498 21287 


if len (y1$)>72 or len (zi15)>72 
or len (x1$)>40 goto 1968 33551 
goto 4348 1603 


print "Cclr,2down,rightleingabe 
zu lang !”:for a=1 to 4800:next 
:goto 8030 13235 
b=-9:c=1:d-1 31176 
x15=-"0":x23=-"0":x35-"Q":x45="D": 
x55=-"0":x65-"0":x75=-"9":xB3=-"D": 


x95-"9" 36199 
as=-"":if d>S goto 4349 31498 
b=b+l:if b>a goto 4340 31313 


bS-ySCh+Chra)):if bS=-" " then 
2008 12765 
if bS=";" or bS="," or b$="'" or 
b>a then 2030 12361 


if b$<"a” or b$>"z" then 2080 
I2066 
if b=® or b=a then 2080 J1672 


if ySCh-1)>="a" and ySCchb-1)<=-"z” 
then 20808 33129 


if ySCh+1)>="a" and ySchb+1)c="z" 

then 2088 23093 
gosub 2598 1583 
as-as+b$:goto 20008 21877 
if c=1 then gosub 2499 21238 


if c=-1 and len (a$)>48 goto 1969 
12063 
if c<>1 and len (a$)>72 goto 1960 
12378 
on c gosub 2160, 2270,2380 11772 
if c=3 then c*1:d=d+1:goto 1990 
12674 
if c=?2 and ab$="n” then c=1:d=d+ 
1:goto 1990 13438 
e=c+tl:goto 1998 1969 


on d gosub 21898,2190,2200,2210, 


2220, 2230, 2240, 2250, 2269 343908 
return 2142 
x1$=-a$:return J844 
x2$=a$:return 1846 
x3$-a$: return 1848 
»4$=a$: return 1850 
x5$*-a$: return 1852 
x6$-a$:return 21854 
x75-a$8: return 1856 
x8$=-a$S: return 858 
x9$-a$: return 1869 
on d gosub 2280, 2300,2310,2320, 

2330, 2349, 2350, 2360, 2370 14573 
return Jı42 
yl1$=a$:21$-"":return 11427 
y2$=a$: z2$="":return 1143@ 
43$=a$: 23$="":return 21433 
y4S=a$: z4$="":return 21436 
v58$=-a$:25$-"":return 21439 
u6$*-a$: 26$-"":return J1442 
478=a$: 27$-"":return J1445 
yB$-=a$: zB3="":return 21448 
49$-a$: 29$="":return 31451 


on d gosub 2400,2410,2420,2430, 

2440, 2450, 2460, 2470, 2480 2149062 
return J142 
z1$=-a$: return 2846 
z2$=a$:return 1848 
23$-a$: return 1858 
z4$=a$: return 1852 
25$=-a$:return J854 
z6$-a$: return 1856 
27$3=-a$:return 2858 
28$=-a$:return 18608 


z9$-a$: return 


J862 


24390 
25008 
8510 


2530 
2540 


2550 
2568 


8570 
2580 


2598 
2608 


2618 
2628 
2638 
2649 
26508 
26628 
26708 
26808 


2698 
2700 


e7rıo 
2720 
2730 


2748 
8750 


2760 
2770 
2780 
2730 
2800 
2810 
2820 
2830 
2840 
2858 
2860 
2870 
2880 
28390 


23900 
2910 


23920 
2330 
es4o 
2350 
[421217] 
29370 
29808 
2990 
3000 
30108 
3020 
3030 
3040 


3050 


3060 


a e u , a Te 


e=-1 1366 
b$=mid$ (a$,e,1) 21053 
if b$t>"<" and b$<>">” and bS<> 
"=" then 2588 13836 
e=-e+l:if e>len (a$)-2 then return 
11794 
bS-mid$ (a$,e,1) 21953 
if bS=">" or bS-"<” or bS-"“" 
then 25208 Jas42 
b$=-midS (aS,e+1,1) 1J1130 
if bEt>"<” and bS<>">" and bS<> 
"=" then 25808 13036 
a$s-left$ (a$,e)+"and”+mid$ (a$,e, 
len (a$)-e+1) 22867 
e=-e+l:ifF e’len (a$)-4 then return 
31795 
goto 2590 1581 
if bS=-"x” then b$="m”:return 
31806 
:return 
21854 
if b$="t” then b$="J":return 
11885 
if b$=-"w" then b$="k”:return 
31997 
31649 
J142 


if b$=-"y” then b$="n” 


if b$=-"r" then b$="1" 
return 

print "Cclr,i1spaces,cbm a, 
16shift *,chm s]" 

print "Cllspaces,shift -] 
Funktionsgraph [shift -1"” 


11746 
J2624 


print "[ilspaces,cbm z,16shift *, 
cbm x]" 11936 
print :b$="@” 2451 


a$="grundfunktion”:b$=ba$:gosub 
7690: bas-b$ 13723 
a3="1l ableitung[l2spaces]"”:b$-=bb$: 
gosub 7698: bb$-b$ 33517 
a5=-"2.ableitung[2spaces)”:b$=bc$: 
gosub 7690: bce$=-b$ 13663 
a$="integrall5spaces)”:b$=bd$: 
gosub 7690: bd$-b$ 13169 
print 3153 
a$="1,abl. multiplikator":a=ba: 
gosub 7739: ba-a 13950 
a$=-"2.abl. multiplikator":a=bb: 
gosub 7730: bb=a 34962 
a$="integ. multiplikator":a=bc: 


gosub 7730: bc=a 34349 
print 2153 
if cy$="1" goto 29098 1208 
if ac$="j" goto 2860 31230 


a$="x mittel2spaces)” :a-bd:gosub 

7730: bd=a 139016 
aß="x bereich":a=be:gosub 7730:be 
-a 13226 
a$="y mittel2spaces]":a=bf :gosub 

7730: bf=-a 13956 
a$="j bereich":a=bg:gosub 7730:bg 
-a 13266 
goto 2808 1597 
print :if ab$="”j" goto 2898 121189 
a$5=-"w minimal"”:3=-bj:gosub 7730:bj 
-a 13279 
a$=-"w maximal":a=-bk:gosub 7730:bk 
-a 23297 
a$="r bereich":a=bl:gosub 773®:bl 
-a 33214 
if ab$="n" then 2940 21245 
a$=-"t minimal”:a=bh:gosub 7730:bh 
-a 13207 
a$-"t maximal":a=bi:gosub 7730:bi 
-a 33225 
a$=-"t schritt":a=bm:gosub 7738:bm 
-a 33414 
print "Cclr)":sys 2785:if cyS="1” 
then gosub 7890 12657 
if cy$="®" then gosub 7679: gosub 

4590:gosub 4630 22641 
if ba$="j" then gosub 3168 11223 
if bb$="j" then gosub 3170 11243 
if bce$="j" then gosub 3188 11263 
if bd$="j" then gosub 3190: gosub 


32008 12095 
poke 53280,11 1955 
if peak (2)-® goto 3018 231489 
if peek (2)=3 goto 8030 31694 
print "[elr]”:sys 2743’poke 

53281 ,11:print "C3down] 
netzeinteilung :":print 15970 


print tab(1®)"achsenkreuz : (” 
bar; "bE*)" 13210 
print :print tab(18)"einheit 
[(Sspaces]: "by"/"bz:poke 643,10 
12903 
print "C2down]” tab(5)”"hardcopy 
(J/n)?” 12657 


3290 
3300 
3318 


3320 
3338 


33490 
33598 
3369 
3370 


3388 
3399 


3400 
3410 


3420 
3430 
34490 
3458 


3450 
3470 
3480 


3490 


35008 
35190 


3520 


3538 


3540 
35508 
3568 
3570 
35808 


3598 
3600 


3618 
3620 
3639 
3640 


3650 


a 5 ee a 


get a$:if aß<>”"j" and a$<>"n” 
then 3970 12671 
poke 649,0:iFf a$="n" goto 3158 
12457 
a=4:38=-"drucker":gosub 7848: gosub 
7890:poke 649,10:sys 3397:poke 
649,0 15956 
open 4,4: print#4:print#4 11888 
for a1 to ab:print#4,y$Ca); :next 


:print#4 12483 
print#4, ”achsenkreuz : C"bd”;” 
BEI" 12782 
print#4, "einheit[Sspacses]: 
C2spaces)"by"/"bz 11988 
print#4:close 4 1568 


gosub 7680:cy$=-"®":goto 80839 
22089 
a$="1":on aa goto 3210, 3430,3630, 
3940 12379 
a$=-"1":on aa goto 3250, 3470,3690, 
33197 
a$="1":on aa goto 33008, 3518,3760, 
3510 12886 
a$="1l":on aa goto 3350, 3559, 38940, 
4050 32818 
a$="1l":on aa goto 3420, 3620, 39390, 


4130 12895 
m-bd-be/2 2824 
gosub 4229:gosub 4149 231134 


m-m+5*v:if m>=bd-be/2 and m<=bd+ 


be/2 then 32208 34045 
return J142 
m-bd-be/2 3 J824 
m-m+.0001:gosub 4220: o=n:m=m- 


‚0901 12632 
gosub 4228: n=198088*Co-n)*ba:gosub 
41490 13198 
m-m+5®v:if m>=bd-be/2 and m<=bd+ 
be/2 then 3260 24053 
return J142 
m=bd-be/2 3824 
m-m-.dl:gosub 4228: r=n:m=m+ 92: 


gosub 4220: o=n:m=m- .dOl:gosub 4229 
35095 
u=188*Cn-r):t=188*Co-n):n=108*Ct- 
u)*bb:gosub 4140 34833 
m-m+5®v:if m>=-bd-be/2 and m<=bd+ 


be/2 then 3318 24044 
return J142 
m-bd:0=® 2813 
gosub 4220 1593 
if aS=-"98" then o=-o+5*v*(n+p)/2 
2J2705 
p=n:n=o*be:gosub 41490 11740 


m-m+5*v:if m>=bd-be/2 and m<=bd+ 
be/2 goto 3360 33919 
return J142 
poke 774,26:poke 808,237:poke 


649,10:end 13268 
v--v:gota 3358 21257 
j"bh 2250 
gosub 4220:gosub 4140 131134 


J“j+bm:if J>=bh and jJ<-bi then 


3440 12608 
return J142 
J=bh J250 


gosub 4220:0=m: pen: J=J+.28001: 
gosub 4228: 1=J- .8801:n=Cp-n)/Co- 
m)*ba 15689 
gosub 4140: j=jJ*bm:if J>=bh and j< 
=bi goto 3450 13372 
return J142 
sys 2743:print "CclrJaus 
rechengenauigkeitsgruenden”: 
print "ist die 2, ableitung"” 

16628 
print "von parameter- funktionen" 
:print "nicht implementiert !!ı” 

15367 
for a=1 to 5088:next :print ” 


Celr]” 11723 
sys 2785:sys 2732:return J1815 
v=-bm 2392 
J3=Cbi+bh)/2:0=-® 21649 
gosub 4220 23593 
if aß=-"8" then o=-o+lq+n)*Cm-p)/2 

12586 
prm:q=n:n=-o*bc:gosub 4140 22034 


J=j+tv:if J>=bh and J<=bi goto 


35708 J2465 
return 2142 
v--bm:goto 35608 11266 
k=bJ 1267 


gosub 4220:m=1.2*1*cos (k):ın=1* 

sin (k):gosub 414® 13830 
if abs (l*e)<18 or abs (1*e)>168 
then k=k+.1:goto 3678 34293 


- 


k=-k+tabs (3/1/e) 11097 
if kt=-bk goto 3640 31386 
return Jı42 
k=-bj 3267 


k=k+.001:gosub 4220:0-l:k=k-.001: 
gosub 4229:q=1000*Co-1) 14693 
m-q*ba*1.2*%cos (k):n=q*ba*sin 
Ck):gosub 4140 13280 
if abs (q*ba*e)<10 then k=k+.1: 


goto 3748 23226 
k=-k+tabs (3/ba/e/g) 21598 
if k£=bk then 37098 31514 
return Jı42 
k=-bj 1267 
k=k- .001:gosub 4220:r=l:k=k+.902: 


gosub 4228:0=-1l:k=k-.801:gosub 
4220 15718 
q=1000*C1-r):t=1000*Co-1):u=(t-q) 
*1000 34110 
m-1.2*u*bb*cos (k):n=u®bb*sin 
Ck):gosub 4149 13603 
if abs (u*bb*e)<1® then k=k+.1: 


goto 3828 33193 

d k=-ktabs (3/e/bb/u) 31485 

if k<=bk then 3770 21528 

return J142 

v-1 3383 

k=-Cbk+bJ)/2:0=® J1683 

gosub 4229 1593 
if a$=-"0" then o=o+v*C1+p)/2 

22211 

p=l:m=1 .2*%0*bo*cos (k):n=o*bo*sin 


(k):gosub 4140 34163 
if abs (o*bc*e)<10 then v=sgn (v) 
/10:goto 391® 33403 
v-abs (3/e/bc/o)*sgn (v) 329029 
k=k+tv:if k>=bj and ki=bk goto 


3860 12666 
return 3142 
v--1:gotoa 3850 11891 
3-bh 1258 
gosub 4228:m=1.2*1l*cos (k):n=1* 

sin (k):gosub 4140 13838 
J3=j+bm 3586 
if j<=bi then 3350 11468 
return J142 
J"bh 1258 
3=3+.0001:gosub 4229:0=k:p=l: j=3*+ 


-08001:gosub 4228:q=C1-p)/Ck-0) 
234319 
m-1.2*ba*g*cos (k):n=ba*g*sin 


(k):gosub 4149 33841 
J*Jj+bm 1596 
if J<=-bi then 49009 231314 
return J142 
J"Cbi+bh)/2:0=® 31649 
gosub 4228 3593 
if a$="@" then o=-o+v*(1l+p)/2*Ck- 
q) 33932 
p=rl:q=k 1756 
m-1.2*bc*o®cos (k):n=be*o*sin 


(k):gosub 4149 34045 
3=3+bm 1596 
if j<=bi then 4060 21326 
return J142 
ve-v:goto 4050 3937 


a=-160+e*(m-g):b=-100+F*(n-h): if a8 
-"1" then a$="9":95=-"0":h5="9":b$ 
-"Q";ad-ac 16297 
if a<-100 or a>H20 or b<-100 or b 
>300 then bS="0":goto 4210 13596 
if b$-"9" then b$=-"1":goto 4218 
12218 
if g$="9" then g$=-"1":goto 4219 
J2225 
if h$="9" then h$="1":goto 4210 
32228 
if abs (c-a)>208 or abs (b-d)> 
200 or ac<>ad goto 4210 233274 
na=c:nb=d:nc=a:nd=-b:gosub 7788 


12678 
ad-ac:c=a:d=-b:return 21450 
if peek (2)-3 goto 43208 21692 


poke 768,168:poke 769, 12:poke 
3259, 128: f$="1":goto 60008 13987 
f$="®":on aa goto 4250, 4260,4270, 


42808 33149 
n=®d: return J812 
n=d:m=-?:return 31861 
l-®:return 1818 
1=9:k=-®: return 11027 
poke 768,139:poke 769,227 12264 


g5=-"1":if peek (3259)<>128 then 
g3="9":hs-"90" 33988 
return J142 


if C peek (53265) and 32)-=® goto 


4330 
4340 


4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
44590 
4460 
4470 
4480 
4490 
4500 
4510 
4520 


4530 


4540 
4550 
4568 
4578 
4580 


4598 
4698 


4619 
4620 


4638 
4640 


4559 


46608 
4570 


4688 


4690 


4700 
4718 


4720 
4730 
4740 
4750 
4768 
4770 
47808 
4799 
4800 
4810 
4820 
4830 
4840 
4850 


48608 
4870 


8030 
poke 53280,11:goto 3039 
a-50000: a$=x1$: b$-y1$:c$=z1$:goto 


31998 
11379 


4430 23143 
a=60004 : aS-x2$: b$-y2$:c$=z2$:goto 
4430 33172 
a=-50008: a5-x3$: b$-y3$: c$=-z3$:goto 
4430 33201 
a-60012: aS=-x4$: b$5-y4$:c$-z4S:goto 
44390 133387 
a=60016: a$-x5$: b5-y5$:c$-25$:goto 
4430 23416 
a-60020: a$-x6$: b$-y56$:c$-z6$:goto 
4430 33347 
a=60024 :a8=x7$: b$5-y7$:c$-275:goto 
4430 33376 
a-60028: aS-xB$: b$-yB$:c$-zB$:goto 
4430 13405 
a-60032: a5=x9$: b5=-y9$: 05-298 
33193 
if a$=-"90” goto 1940 11416 
poke 49152, Ca-650000)/4+1 J2054 


print "Cclr)"a"ifnotl"a8”)tHac="” 


a”:gD"a+4 12347 
print a+1;bS 1859 
print a+2;c$ 1899 
print ”"gO4540” 1689 


poke 2048,peek (45):poke 2049, 
peek (46) 12384 
poke 2050,peek (47):poke 2851, 
peek (48) 22197 
poke 2052,peek (49):poke 2953, 
peek (50) 122508 
poke 2054,psek (51):poke 2955, 
peek (52):poke 631,13 33272 
poke 632,13:poke 633,13:poke 634, 
13:poke 635,13:poke 636,13: poks 
198,6:end 16713 
poke 45,psek (2048):poke 46,pesk 
(20439) J2515 
poke 47,peek (2050):poke 4B,peak 
(2051) 12396 
poke 49,peek (20852):poke SD, peek 
(2053) 32582 
poke S1,peek (2054):poke S2,peek 
(2055) 32668 
on peek (49152) goto 4350,4360, 
4370,4380, 4399, 4400, 4419, 4420, 
1948 15104 
on aa goto 4600, 4610, 4620, 4520 
31998 
e=320/be: F=208/bg:g=bd: h=bf : v=1/ 
e:return 13682 
gosub 4689: v=-bm:return 21478 
e=188/bl:f=e:g-®:h=®: v=-1: return 
13283 
if aa>2 then 4859 1884 
na=®:nb=188:nc=319: nd=100: gosub 
7788 13639 
na=1698:nb=®:nc=160: nd=199: gosub 
7788 33485 
Baden 1509 
by-1@ti:if 329*by/be>=15 goto 
4708 33257 
by=-5*18rti:if 320*by/be>=-15 goto 


4700 12626 
i=-i+1:goto 4678 1866 
i=-4 3599 
bz=-10ti:if 289*bz/bg>-B goto 4740 

33161 


bz=-5®10ti:if 200*bz/bg>=B goto 


4740 32491 
i=-i+t1:goto 4710 1855 
For )J-® to int (Cbe/by/2) 11640 
if peek (2)=3 goto 80838 11694 
i=j*320*by/be 31063 
na=-i+161:nb=39:nc=-i+161:nd=101: 
gosub 7788 33239 
na=-i+168:nb=39:nc=-i+160:nd-101: 
gosub 7780 33237 
na=i+161:nb*=99:nc=i+161:nd=101: 

gosub 7788 13788 


na=i1+160:nb=99:nc=i1+160:nd=101: 
gosub 7780: next 23839 
i=180-int (100/200/bz*bg)*200*bz/ 
bg 33117 
if i<281 then na=159:nb=i:nc=161: 
nd=-i:gosub 7780: i=-i+bz*200d/bg: 


goto 4820 J6056 
if peek (2)-3 goto 80838 31694 
return Jıy2a 
na=160:nb=108:nc=319: nd=198: gosub 
7780 34127 
ie-4 21589 
bz=10ti:ifF 100*bz/bl>-B goto 4998 

13166 


4B88 
4898 
4900 
4910 


4920 
4930 


4940 


bz=-5*10t1i:if 100*bz/b1l>-8 goto 


4900 22511 
i=-i+1:goto 4878 1868 
i=-160 1558 
if i>=321 then by=bz:return 

21983 
if peek (2)-3 goto 8030 31694 


na=i+1:nb=-99:nc=i+1:nd=101:gosub 
7788 14250 
na=i:nb=89:nc=i:nd=191:gosub 
7780: i=-i+bz*1008/bl:goto 4910 
15338 
if aa=2 or aa=-4 then print "Cclr, 
@down,rightJungueltig !":for a=® 
to 2888:next :goto 8930 34266 
a=-8:a$="floppy”:gosub 7840:open 
2,8,2,"@:puffer,s,w” 34333 
for a=1 to ab:a$=chr$ ( asc 
(yS(a))+128):print#2,a$; :next : 


print#2,chr$ (141) 234640 
print#2,chr$ (13) 11018 
print "[cir,11spaces,cbm a, 

18shift *,cbm s)"” J2142 


print "[ilspaces,shift -] 
funktionsanalyse [shift -1” 
12947 
print "Cilspaces,cbm z,18shift ®, 
chbm x]” 12203 
print :print 3371 
a$=-"startpunkt: ":a=ce:gosub 
7730:ce-a 33451 
a$5="endpunkt[2spaces]: ":a=cb: 
gaosub 7738:chb-a 33141 
a$="schritt[3spaces]: ":a=cc: 
gosub 7730:cc=a 12986 
print#2,"bereich "ce" bis "cb: 


print#2,"schritt ";cc 13865 
print#2,”"'":print#2,"'" J1218 
print "Ccir]”; 3495 


a=-1900000: b=180008: a$="®":ca=ce- 
cc 32418 
m=ca-.001:k=-m:gosub 4228:c=n: if 


aa=3 then c*-l 33343 
m=-ca:k=m 18987 
gosub 4228:d=n:if aa=3 then d=1 
31759 
m=-ca+.001:k=m: iS=gS: 15-Ff$ 32558 


gosub 4228:e=n:if aa=3 then e=l 
11824 
£-Cd-c)*1089:9-(e-d)*1009:h=Cg-F) 


*1000 13831 
print "[clr]" £En alca)"[11down]” 
11733 
if J5-"0" or i$="®" goto 5249 
131877 
if a$="0" then aS="1":goto 5249 
J2220 
if d<b then b=d 1899 
if d>a then a=d 1851 


if i*d<=-® and d<>B goto 5878 
31982 
if o*h<=-® and h<>0 goto 55098 


if 3*%g-® and g<>® goto 5698 


i=d:o=h: J=g 
ca=-ca+tcc:if ca<=cb goto 5108 
11968 
print#2, "wertebereich " fn aCb)” 
bis ” fn ala) 33234 
print#2,”"-.-":close 2 21267 
print tab(18)"ausdruck (j/n)?”: 
poke 198,8:poke 643,19 13918 
get a$:if a$<>"j” and as<>"n" 
goto 5239 12894 
poke 649,8:print ”"[elr])":if a$= 
”j” goto 5428 12729 
open 2,8,2,"puffer,s,r” 31927 
input#2,b$:for a=1 to len (b$): 
print chr$ ( asc ( mid$ (b$,a,1)) 
-128); :next 349042 
input#2,b$S:if b$="-,-” goto 53808 


32431 
print b5 3429 
if peek (2)-® goto 5358 31513 
if peek (2)-3 goto 8038 11694 
goto 5330 1603 
close 2 12608 


print ”"[rvs) File ende [Loff]":Ffor 


a=® to 1008:next a 12028 
if peek (2)=® goto 5400 11495 
goto 5438 655 


a=-4:a$="drucker":gosub 7849 12351 
open 4,4:open 2,8,2,"puffer,,s,r" 
12502 


Januar/88 Up 71 


5440 


54508 


5460 
5470 
5488 


54908 
5508 


5510 


5520 


5539 
5549 
5552 
s56d 
5570 


5580 


5590 
5608 


5619 


S620 
5630 
SB4O 


5658 
5660 


5678 


s5392 
5700 


5710 
s720 


5730 
5740 
5750 
5768 
5779 


5780 
5790 


5808 
5810 


5830 
5840 
5850 


5860 
5879 
5880 


5838 
5908 


5310 


s920 
5930 


59490 


5950 
5368 
s979 


6010 
6020 


60308 


an Januar/88 
12 vr RN 


Mi a t .., 


input#2,bS:for a=1 to len (b8$): 
print#4,chr$ ( asc ( mid$ (b$,a, 
19-128); :next 13859 


input#2,b$:if b$=-"-.-" goto 5488 
12433 
if peek (2)=3 goto 8030 211694 
print#4,b$:goto 5450 21189 
close 2:print#4:print#4:close 4 
Jı221 
goto 1949 3591 
m=-ca-cc-.B011:k=m:gasub Y22dıren: 


if aa=3 then r=1 13716 
m=-ca-cc-.0001:k=m:gosub M228:s=n: 
if aa=3 then s=l 13713 


m=ca-co+.0009:k=-m:gosub 4220:t=n: 
if aa=3 then t=-l 13718 
w=(t-s-s+r)*1000980 J2201 
if w*h>=9 goto 5230 21364 
prca-cc:q=ca 1936 
if q-p‘.801 goto 5639 21411 


m-Cp+tq)/2-.001:k=m:gosub 4H220:r= 
n:if aa=3 then r=l 314557 
m=-Cp+q)/2:k=m:gosub 4220:s=n:if 
aa=3 then s=1 33697 
m=-Cp+g)/2+.001:k=m:gosub 4228:t= 
n:if aa=3 then t=1 34575 
u=(s-r)*1000:v=-(t-5)*19000:w=(v-u) 
*19000 34146 


if w*h<® then prp+lq-p)/2:goto 

5560 12769 
q=q-tq-p)/2:goto 5568 31801 
if abs (t-s)>188 goto 5239 1946 


print#2, "wendepunkt bei ” fn al(p 
+q)/2) 12887 
print#2,”.,.wert " £n als) 11988 
print#2,",.steigung "” fn allurv)/ 
©) J3445 
if h>® then print#2,”"..-> 
linkskruemmung” chr$ (13)”'": 

goto 5230 14925 


print#2,”,.--> rechtskruemmung" 
chr$ (13)"'":goto 5230 13699 
Prca-cc:q=oa 1936 


if F=® then q=p:v=d:goto 57808 
J2143 
if q-p<.001 then 57808 11559 


m-{p+q)/2-.001:k=m:gosub H2208:r= 
n:if aa=3 then rl 34557 
m-(p+q)/2:k=m:gosub 4220:s=n:if 

aa=3 then s=1 13697 
m=Cp+q)/2+.001:gosub 4220:t=n:if 
aa=-3 then t=1 13636 
u=(s-r)®*1000: v-(t-s)*1000:w=(Cv-u) 
*1000 J4146 


if v*g<® then p-p+Cq-p)/2:goto 
5719 22758 
q=q-(q-p)/2:goto 5710 12054 
if abs (v)<1 goto 5819 Jı612 
print#2, "doppelte polstelle bei "” 
En al(lp+ga)/2) 13375 
print#2,"'":goto 52408 J1455 
if h>8 then print#2, "minimum bei 
4 12355 
if h<® then print#2, "maximum bei 
u? 22411 
print#2,Ffn allp+q)/2) J1225 
print#2,"..wert " fn als) 31988 
if abs (s)<.81 then print#e, 
"..nullstelle” 12839 
print#2,"'":goto 5240 31455 
p"ca-cc:q=ca 1936 
if i=® then r=®:qg=p:goto 5930 
J2152 
if q-p<.0081 then 5930 231631 


m=-Cp+tq)/2:k-m:gosub 4220:r=n:if 
aa=3 then r-l 33617 


if r®d<=® then p=-p+lq-p)/2:goto 
5838 22737 
q=q-(q-p)/2:goto 58909 11867 


m-Cp+q)/2-,0805:k=-m:gosub 4220:r= 
n:if aa=3 then rl 14138 


m-Cp+q)/2+,0005:k=m:gosub 4220:s= 
n:if aa=3 then s=l 34148 
if abs (s)<.1 goto 5999 31792 
if r*s>® goto 5220 J1262 


print#2, "einfache polstelle bei "” 
En allp+q)/2) 34004 
print#2,"’":goto 5240 J1455 
print#2,"nullstelle bei ” fn attlp 
+q)/2) 32864 
print#2,”"..steigung ";fn al(ls-r)* 
1808):print#2,"'":goto 5220 14750 
a=-B:a$=-"fFloppy":gosub 78490 12205 
print "Colr,Sspaces,cbm a, 
@2shift *,cbm s]" 

print "[9spaces,shift -] 
diskettenoperationen [shift -]"” 
13591 


12223 


ee rar 


Zute n 4: u A 


x | 664 LISTING 


56040 
6059 
6060 
6070 
6089 
690908 


6190 
6118 


6120 
6130 
6140 
6158 
6168 
6170 
6188 
6198 


5208 
62128 


6220 
6238 


6240 
6250 
6260 
6270 
6280 


62598 
6308 
6318 
6320 
6330 
6340 
63598 


6368 
6370 


6380 


6390 
6400 


6410 
5420 
6430 
6440 
6450 
6468 
6470 
6480 
6490 
6508 


65198 
6520 


6530 


6540 
6559 


6560 
6570 
6580 
6590 


6608 
6618 
66208 
6630 


Pe 3 


print "C9spaces,cbm z,22shift ®, 
cbm x,down]” 12658 
print " 1 - Funktion ladenfldown)” 


' 32351 
print ” 2 - Funktion speichern 
Cdown]” 22465 
print " 3 - grafik ladenldown]” 

31947 
print " 4 - grafik speichern 
CdownJ” 32364 
print *" S - directoryldownd” 

31718 
poke 649,10 3912 
get aS:if psek (2)-3 goto 8039 

21738 
if a$s<"1" or a$ß>"S” or a$=-"" goto 
6118 22489 
print "Celr]":if a$ß="1" then 


print "funktion laden :” 33141 
if a$=-"2” then print "Funktion 
speichern :"” 13486 
if a$=-"3" then print "grafik 
laden :" 
if a$=-"4" then print "grafik 
speichern :"*” 13285 
on asc (a$)-48 goto 6180,6190, 
6200, 6230, 6280 13038 
gosub 6330:c$=-c$+" ,fun”:goto 6538 


12487 


12349 
gosub 6338:c$=-c$+".Fun”:goto 566398 
32972 
gosub 6330: 0$5-c$+",grf” 12866 


£fm$=c$:gosub 7300:if Fm-62 goto 
6910 12885 
sys 3260,c$,8:goto 1040 11525 
gosub 6338:0$-c$+” ‚grf”":fm$=c$:b$ 
-"s":gosub 7908:if fm"-62 goto 


6250 15415 
gosub 7970 1667 
open 1,8,1,”@:"+c$ 21471 
print "[down]seving "c$ 31149 
sys 3275:close 1:goto 8030 )1478 


c$=",Ffun”:print "[CclrI”:gosub 


6740 22143 
c$=",grf":gosub 67490 21641 
print " Crvs] ende [off)"” 11068 
if psek (2)=® goto 6310 11498 
goto 6019 1577 
print :print :print 1733 


print "dateiname >[13chbm @J<":c$- 
"":i=®:poke 649,10 24279 
get a$:if peek (2)-3 goto 8030 
11738 
if a$-"" goto 6359 11138 
a=-asc (a$):if a<>176 goto 64008 


22194 
for b=1 to 99:get a$:if as-" 
Ccbm *]” goto 3419 32508 
next 2138 
if a=20 then i=i-1:goto 6460 

12037 
if a=147 goto 63398 131375 
if a=13 goto 6490 11028 


if a>31l and a<64 and i<12 goto 
6480 22547 
if a>63 and a<96 and i<12 then a= 


a-64:goto 5488 13460 
goto 6359 1621 
if i<@ then i-® 3379 


if a=28 then poke 1235+1,100:goto 
63598 12682 
poke 1235+i,a:poke 1236+1,100:i-i 
+1:goto 63508 13699 
For i=-1235 to 1246:a=-peek (Ci) 


12266 
if a>-1 and a<32 then a=a+64 

31772 
if a=-100 then a=-32 214990 


o$=c$+chr$ (a):next :poke 649,0: 
return 12528 
Em$-o$:gosub 7900:if Fm-G2 goto 
6010 12885 
open 2,8,2,08+”,s,r” 11769 
for a=1 to 360:4u$(a)="":naxt 
131790 
For a=i1 to 360:input#2,a$:if a$-" 
[pi]” then 6580 13098 
ysla)-chr$ ( asc (a$)-128):next a 
21914 
ab"a-l:input#2, aa$,ab$,ac$ 11527 
input#2,ba$S,bb$,bc$,bd$,ba,bb,bc, 
bd,be,bf,bg,bh,bi,bj,bk,bl,bm 


34539 
input#2,ce,cb,cc 231083 
input#2,da,db,dc 1838 
close 2:goto 1198 1727 


Em$=c$:b$=-"s":gosub 7900:if Fm<> 


PT a a in ad a 


6640 
66508 
6660 
6678 
6680 
6690 
67008 


6718 
6720 
6738 
6748 
6750 
6769 
6770 
67808 
6739 
6808 
6818 
6828 
6838 
6840 
6850 


6860 
68798 


63008 
6310 


6320 
69390 
6940 


6350 
6969 


6979 
6380 


6999 
7008 


7010 
7029 


7830 
7040 
7050 
7060 
7078 
79080 


7030 
7100 


7110 
7ı20 


7130 
7140 


7150 
7160 
7170 
7188 


62 then gosub 7979 34173 
open 2,8,2,"@:"+0$+",s,w" 12298 
for a=l to ab:print#2,chr$ ( asc 
(y$SCa))+12B8):next :print#2,"Cpi)” 
13588 
print#2,aa$ chr$ (13)ab$ chr$ 
(13)ac$ 32114 
print#2,ba$ chr$ (13)bb$ chr$ 
(13)bc$ chr$ (13)bd$ 22932 
print#2,ba chr$ (13)bb chrs 
(13)bc 
print#2,bd chr$ (13)be chr$ 
(13)bF chr$ (13)bg 
print#2,bh chr$ (13)bi chr$ 
(13)bJ chr$ (13)bk chr$ (13)b1 
chr$ (13)Jbm 33812 
print#2,ce chrS (13)cb chr$ 
(13)cc 
print#2,da chr$ (13)db chr$ 


31588 
J2454 


11658 


t13)de 11608 
close 2:goto 1048 1638 
ci 2479 


open 1,8,0, "S?7?7????7r7rrT"+c$:get 
#1,a8,48 34568 
get #1,3$,3$:if st=64 then close 

l:return 32398 
get #1,a8,b$:3=-asc (a$+chr$ (9))*+ 


256*asc (bS+chrs (03) 13596 
if a=® goto 6850 11166 
get #1,a$ 1676 
if a$*=chr$ (34) then c=o*-1:get 


#1,a8:if c=-1 goto 6768 33546 
if c=1 then print as; 3942 
if psek (2)=3 goto 8030 21694 
if aßc>"" goto 6790 J1518 
print :goto 6760 1889 


get #1,a$:if a$c>"" goto 68508 


12080 
goto 6849 1633 
print "Cclr,ilspaces,cbm a, 
18shift *,cbm s]” Ja1y2 


print "[l1spaces,shift -,3spaces] 
wertetabellef3spaces,shift -]"” 
22361 
print "Cllspaces,cbm z,18shift *, 
cbm x]"” 12283 
print :print :print 3733 
a$="anfang[ 12spaces)” :a=da:gosub 
7739%:da=a 23149 
a$="ende[ 14spaces)” :a=do:gosub 
7730:dc=a 33011 
a$=-"schritt[11spaces]"”:a=-db:gosub 
7730: db=a 12837 
a$=-"ausdrucken (j/n)? ":b$=das: 
gosub 7690: das=b$ 14497 
if da$=-"n" goto 7118 231171 
a=4t:a$="drucker”:gosub 7849:open 


be Pie 13048 
y-da 1217 
for a=1 to ab:print#4 , 4$S(Ca); :next 

12003 
print#4:print#4 1751. 
Jry:m-yık-y 31175 
gosub 4220 1593 


print#4,chr$ (16) chr$ (48) chr$ 
(53) Fn aly) chr$ (16) chrS (49) 
chr$ (S5)"[shift -, 2spaces)"; 
15137 
if gS=-"0" or F$="®" then print#4, 
"n.def.":goto 7090 13092 
on aa goto 7059,7060,7070,7980 
12098 
print#4,fn aln):goto 7098 21376 
print#4,Ffn alm) chr$ (16) chr$ 
(51) chr$ (53) fn aln):goto 7099 
13508 
print#4,fn all):goto 7899 J1248 
print#4,Ffn atk) chr$ (16) chr$ 
(51) chr$ (53) Fn acl) 13033 
yrytdb:if y<=-dce goto 79008 31757 
print#4:print#4:close 4:goto 10498 
211363 
print "Celr)]":y=da:poke 214,24: 
sys 58732 12386 
for a=1 to ab:print yS(a);:next : 


print :print :2=208 12883 
Jry:m-y:k-y 31175 
poke 214,20:sys 58732:gosub 4228 
J2528 
poke 214,24:poke 2ll,2:sys 58732 
J2556 
print En aly) tabC12)”Cshift -, 
spaces)”; 21673 


if gS=-"0” or F$="8” then print 
"n.def.":goto 7230 73054 
on aa goto 7190, 7200,7210, 7220 
12083 


7460 


7470 


74808 


7490 


7508 
7510 


7520 


7538 


7548 


7550 
7569 
7570 


7588 
7590 


7608 
7610 
7620 
76398 


7648 


7650 
7668 


print fn afn):goto 7238 31383 
print Fn alm) tab(28) Fn an): 
goto 7238 J2139 
print fn all):goto 7238 131357 
print Fn alk) tab(2B) Fn all) 


231411 
z=2-1:if 29 goto 7260 31481 
if peek (2)-® goto 72408 31583 
z=20 15228 
yryu+db:if yt=de goto 7139 31888 
print "[rvs] ende [Loff)” 3363 
if peek (2)>® goto 7288 21493 
if pessk (23-9 goto 72398 21529 
goto 1940 3591 
dim y$(360):na=®:nb=B:nc=®:nd=®:z 
-9 33330 


a=9:b*9:0*-d:d-d:e=-d:F-9:g-®:h=-B:i 
=: j*9:k=®: 1-9: m=-9:n=9:0=-B:p=d:q”= 
O:5=D 37271 
:v=® 


36375 
:ab$="n":ac$=-"n":ba$=-"j": 
bb$="n":bc$="n":bd$="n" 16881 
ba=1:bb=1:bc=1:bd=®: be=29:bf-®:bg 
=28:bh=-10:bi=19:bj-0:bk=18:b1-208 

16260 
bm=.1:ce=-19:cb=18:cc= ,5:da=-10: 


db= ,5:dc=10:das="n" 35588 
een «Fun”:b$="s":a= 
®:gosub 7908: if Fm<>62 goto 7398 
25626 

--- .fun,s, 


B:gosub 79@0:if Fmeo>s2 
return 


w*:print#2, "grf":close 2:return 
15788 
print chr$ (14)"Cclr, 10spaces, 
cbm a,18shift *,cbm s)” 12966 
print *"[18dspaces,shift -] FAN - 
Hauptmenue [shift -]I" 12893 
print "[1®spaces,cbm z,18shift *, 
cbm x" 32171 
print :print "[C3spaces,whtljAlyel, 
2spaces]:[2spaces] 
Funktionseingabe” 
print "[3spaces,wht]B[Lyel, 
®spaces]): [2spaces]Funktionsgraph” 
32699 


12854 


print "C3spaces,wht]C[yel, 
Espaces]:[2spaces)Zusaetzlicher 


graph” 33968 
print "[C3spaces, wht]D[yel, 
2spaces]:[2spaces] 
Funktionsanalyse” 12798 


print "C3spaces,whtlE([yel, 
Zspaces]: [2spaces]JWertetabelle” 


32118 
print "C3spaces, whtIF(yel, 
2spaces]: [@spaces) 
Grafikbildschirm” 13079 


print "[C3spaces wht]6lyel, 
®spaces]: [2spaces]Hardcopy” 11919 
print "C3spaces, whtJHlyel, 
@spaces]: [2spaces]Puffer 


zeigen/ausdrucken" 33252, 
print "[3spaces,whtl]iClyel, 
2spaces]: [2spaces] 
Diskettenoperationen” 13667 


print "[3spaces,cbm 3]JCyel, 
spaces]: [2spaces)]Programmende 


EdownJ” 32637 
print "In Fast allen 
Programmteilen kann mit” 13885 
print "<SHIFT>+<SHIFT> 
abgebrochen werden, 34217 


print ”"Haelt das Programm ohne 
Anforderung an,” 33476 
print "so ist ein Fortfahren mit 


<SHIFT>” 13783 
print "moeglich.[down]” 21468 
print "C8spaces]URITTEN BY 

P,SPAETH & A.RZANY" 33976 
print "[34spacesJ1987"” 11631 


b$="abcdefghij"”:poke 649,10 12293 
a=-d:get a$: if a$-"" goto 7638 
31936 
a=a+l:ifF mid$ (b$,a,1)-a$ then 
poke 649,8:print "Ccir]” chr$ 


(142):return J4422 
if a<len (b$) goto 7648 31491 
goto 7629 3611 


7678 


8030 
8108 
8110 


59000 
50001 
52902 
560903 
50904 
60905 
590906 
60097 
60008 ::: 
60803 : 
60010 : 
560011 goto 4288 


poke 2B826,112:sys 2754:sys 2738: 


return 12736 
sys 2743:poke 53288, 11:poke 
53281,11:return 33146 


print 8$;” (3/n)? ";b$; "Lleft)”;: 
poke 649,10 33170 
open 1,8:input#1,b$:closs 1 21361 
if b$5=-"j" or b$="n" then print : 
poke 649, 0:return 32330 
for a=® to len (b$):print chrs ” 
(28); :next a:goto 7708 32772 
print a$;" =";a;tab(39); 31553 
for b=35 to len (a$)-1 step -1: 
print "[left]";:next :poke 643,10 
J3646 
open 1,8:input#1,a$:close 1 }J135® 
a=-val (a$) J488 
print :poke 643,2:return 1768 
na=na+32768: nb=nb+32768: nc=nc+ 
32768: nd=nd+32768 35715 
z=-int (na/256):poke 3215,z:poke 
3214, na-256*z 233888 
z=int (nb/256):poke 3217,2:poke 
3216,nb-256*®z 13852 
z=int (nc/256):poke 3219, z:poke 
3218,nc-256*2 13896 
z=int (nd/256):poke 3221,z:poke 
3220,nd-256*z 13666 
sys 2827: return 3976 
open 2,a,2:close 2:if st>=® then 
print "[clr]”:return 12394 
print ”Colr,4down]”a$” anschalten 


und <shift> druecken!” 34193 
if peek (2)=® goto 7869 31529 
if psek (2)=3 goto 8938 J1694 
goto 7849 1635 


print "[Cclr]”:poke 53280,8:poke 

2826, 112:sys 2785:sys 2732: return 
24248 

open 15,8,15,"r: "+Fm$+"-"+fm$: 


input#15,fm:close 15 J4126 
if fm<>62 then return 11287 
if b$=-"s" then ari: return 31854 


print "Colr,Sdown]” tab(S)"datei 


nicht vorhanden” 13282 
if peek (2)-® goto 7949 31523 
if pesk (2)-=3 goto 8038 11694 
return 3142 
print tab(10)"[clr ,2downldatei 

vorhandenldoun]” 12478 
print tab(S)"trotzdem speichern 

(J/m)?” 33485 
poke 649,18 3912 
get a$:if a$<>"”j" and a$<>"n” 
goto 89008 32475 
poke 649,8:if a$=-"n" goto 5018 

32322 
return J142 


poke 648,4:sys 2743:sys 62355: 
poke 768,139:poke 769,227 15156 
poke 2048, psek (47):poke 2048, 
peek (4B) 32137 
poke 2058,peek (H3):poke 2051, 


psek (50) 22216 
poke 2052,peek (51):poke 2053, 

peek (52) 22299 
elr J156 


poke 47,peek (2048):poke 48, psek 
(2043) 12396 
poke “49,pesak (2050):poke 50, peesk 
(2851) 32434 
poke Si,peek (2052):poke 52,psek 
(2053) 126988 
poke 53288,11:poke 53281,11:cy$= 


"®":goto 19492 


1645 
J845 


goto 


1645 


60812 ::: 


659013 


60014 ::: 


EOB15 goto 4290 


60918 a 
69019 goto 4298 
68028 


J645 


J645 


a ee hi 


680921 ::: 
g9922 

60923 
69824 
608825 : 
5600826 ::: 
60027 goto 4290 


50035 goto 24a 


ende des listings 


Hauptprogramm von FAN. 


0a09 
0a88 
®a18 
0a18 
da20 
Ba28 
02338 
0338 
Oa4d 
da48 
0350 
0a58 
0a68 
Ba68B 
0378 
0378 
02808 
0a88 
0a90 
0a38 
Qaa® 
Oaa8 
Oab® 
Bab8B 
Bacd 
BacB 
Badd 


ad,4e,03,48,29,07,aa,a9, 
080,38,5a,ca,18,fc,8d,51, 
02,68,29,f8,8d,52,8a,ad, 
4F,03,84,53,0a,ad,50,Ba, 
48,29,07,18,6d,52,0a,8Bd, 
52,02,39,20,6d4,53,0a,8d, 
53,03,68,4a,4a,4a,f0,15, 
a8,39,40,18,64,52,Bda,8d, 
52,03,90,803,ee,53,Ba,ee, 
53,8a,ca,d®,ec,690,08,00, 
00,00,00,00,29,00,8d,ab, 
Ba,ad,a7,03,38,e9,40,ad, 
aB,2a,e9,01,30,04,ee,ab, 
02,60,ad,87,0a,Bd,4e,Ba, 
ad,a8B,®da,8d,4f ,Ba,ad,aa, 
0a3,c9,20,d0,e9,a9,c7,38, 
ed,a9,03,90,e1,8d,50,2a, 
20,008,0a,ad,52,8a,8d,ai, 
03,8d,a4,0a,ad,53,8a,8d, 
a2,0a,8d,a5,8a,ad,51,Ba, 
Od,Ff,fFf,8d,ff,FF,60,00, 
00,08,00,00,29,18,8d,18, 
d®,a9,3b,8d,11,d0,60,a9, 
1b,8d,11,d0,39,15,8d,18, 
dO,60,29,20,8d,d2,0a,a9, 
00,8d,d1,0a,a2,20,28,40, 
8d,ff,Ff,ee,d1,83,d0,03, 
se,d2,03,88,d8,f2,ca,d®, 
ef,a9,04,8d,f4,0a4,39,20, 
8d,fF3,0a,32,04,30,88,ad, 
83,0b,8d,ff,ff,ee,f3,Da, 
d®,803,ee,f4,0a,88,d0,F2, 
ca,d®,ef,8d,20,d0,8d,21, 
d®,60,008,a2,03,bd,8e,®c, 
94,96,0c,ca,18,f7,a9,00, 
Bd,9e,8c,8d,SFf,0c,38,ad, 
92,0c,ed,8e,0c,48,ad,93, 
Oc,ed,8f,0c,930,09,8d,Sb, 
0c,68,8d,93,0c,b9,16,a28, 
68,49,ff,69,01,8d,39a,0c, 
98,49,Ff,69,00,8d,3b,®c, 
a9,ff,8d,9e,0c,38,ad,94, 
©c,ed,30,0c,48,ad,35,0®c, 
ed,91,0c,98,09,8d,9d,®c, 
68,8d4,9c,0c,b9,16,38,68, 
49,fFf,69,01,8d,9c,0c,38, 
49,ff,69,00,8d,3d,0c,a9, 
ff,8d,9Ff,0c,38,ad,9a,0c, 
ed,3c,®c,ad,9b,®c,ed,Sd, 
0c,a2,00,b8,02,82,02,bd, 
9a,0c,8d,36,0c,bd,Sb,®c, 
0bS8 8d,a7,8c,ee,a6,0c,d®,23, 
ee,a7,8c,ad,Sa,0c,8d,a0, 
0c,ad,Sb,0c,8d,a1,0c0,89, 
00,8d,a2,0c,ad,9c,9c,Bd, 
a3,0c,3d,9d4,8c,8d,a4,®c, 
39,00,8d,35,0c,ad,397,®c, 
38,89,80,8d,38,0a,ad,S6, 
®c,e93,00,8d4,a7,0a,ad,399, 
0c,38,e9,80,8d,aa,Ba,ad, 
98,0c,89,00,8d,a9,0a3,20, 
Obe8 54,03,38,ad,a6,®c,ed,a3, 
®c,ad,al,0c,ed,a4,0®c,ad, 
Obf8 a2,0c,ed,a5,0c,990,36,18, 


Januar/88 Gum 73 


3645 


1645 


1645 


1605 


er 7 A 


" ®cd® 

F @cd8B 
7 ®ced 
= ®ce8 
‚ @cf® 
= ocfB 
= 0d20 
= ®d88 
= 08dı®8 
= 0d18 
0420 
= @8d28 
0430 
0438 

= 28d408 
” @d48 


O& MD Hamburg 


ad,a3,0c,6d,9c,0c,8d,a3, 
®c,ad,a4,8c0,6d,9d,0c,8d, 
a4,0c,90,03,ee,a5,0c,18B, 
2c,9e,8c,10,10,38,2d,S6, 
0c,e9,01,8d,96,0c,b0,0d, 
ce,37,0c,90,08,ee,36,0c, 
dd,03,ee,937,0c,38,ad,a3, 
®c,ed,ad,@c,ad,a4,0c,ed, 
al,0c,ad,aS,0c,ed,a2,®c, 
S0,36,18,ad,30,0c,6d,9a, 
0c,8d,a0,0c,ad,al,0c,6d, 
9b,2c0,8d,a1,0c,90,03,ee, 
a2,0c,18,20,9f,0c0,10,10, 
38,3d,98,0c,89,01,8d,98, 
0c,b8,2d,ce,39,2c,390,08, 
ee,98,0c,d0,03,e8e,399,0c, 
ce,a6,0c,f0,03,4c,c5,0b, 
ce,a7,0c,18,fF8,60,00,00, 
02,00,08,00,00,00,00,00, 
00,008,00,08,00,00,00,00, 
02,00,00,00,00,020,00,00, 
83,48,08,0d,bb,0c,8d,bb, 
0c,28,68,30,03,4c,3b,a9, 
4c,74,24,00,20,Fd,as,2®, 
d4,e1,a0,20,22,00,29,00, 
4c,dS,ff,a2,01,20,c9,FFf, 
a9,00,20,d2,ff,a9,29,20, 
d2,ff,a9,08,8d,89,00,a9, 
20,8d,ea,0c,a2,4f,a0,63, 
ad,ff,ff,20,d2,ff,ee,es, 
0c,d®,03,ee,ea,0c,88,10, 
sf,ca,18,8a,20,cc,ff,60, 
78,39,12,a2,0d,8d,14,03, 
88,15,03,a9,8a,8d,44,0d, 
58,60,ce,44,0d,f0,03,4c, 
31,ea,39,03,8d,44,0d,a9, 
00,85,02,39,bf,8d,00,dc, 
ad,81,dc,29,10,d0,04,e6, 
02,86,02,a9,Fd,8d,20,dc, 
ad,21,dc,29,80,d0,02,e6, 
02,4c,31,ea,00,a9,20,8d, 
1b,0F,a9,04,85,ba,a2,00, 


2459 
2458 
04698 
0d68 
0470 
0478 
0480 
0d88 
0499 
0498 
2da® 
Oda8 
®db® 
®dbB 
2dc® 
9dcB 
Odd® 
®dd8 
Oded 
Ode8 
Odf® 
Bdf8 
de00 
de08 
Bde1® 
de18 
de20 
de28 
8e30 
0&38 
BeH® 
Be4B 
Be52 
8858 
0860 
0858 
0e70 
0878 
0888 
0888 
0830 
0838 


86,fe,86,b9,86,b7,e8,86, 86 
b8,20,c0,Fff,a6,b8,298,c9, Se 
ff,a9,ff,85,61,39,07,8d, 82 
1c,0f,a9,1c,85,97,a9,00, 398 
84,17,0F,39,28,8d,19,0Ff, 82 
a2,04,bd,f4,0e,20,62,0de, a9 
ca,10,f7,29,00,85,63,85, 61 
654,8d,17,0F,85,65,29,00, 88 
8d,1d,0f,a5,63,a6,64,a4, 58 
65,20,27,0e,ae,1d,Of,aS, 59 
ad,ad,00,bl,ac,ae,1d,®f, 69 
Sd,l1e,0f,e6,65,e8B,8e,1d, 97 
Of,ec,10,0Ff,d0,dd,a9,00, cd 
a8,9297,d0,02,d8,b5,ae,1c, 12 
OF,1e,1e,0f,2a,ca,10,F9, 78 
25,61,929,80,28,62,0e,ad, 5d 
84,02,29,01,d0,34,88,1®, bd 
eS5,35,63,18,69,08,85,63, ®d 
30,02,86,64,ce,19,0F,d0, 83 
ad,a9,0d,28,62,08,ad,17, ce 
0f,18,69,07,84,17,0Ff,c6, 18 
37,£0,02,d0,bf,a9,04,cd, 2B 
1c,0f,f®,0f,8d,10c,0F,a9, c4 
01,85,97,89,0F,85,61,d®, 86 
ea,a9,01,85,fe,a9,0F,20, ®1 
62,0e,a9,0d4,20,62,0e,28, 9c 
ec,ff,a9,801,40,03,ff,85, 78 
14,86,15,98,4a,4a,4a,aa, ac 
bd,f9,0e,85,ad,8a,29,03, 937 
aa,bd,13,0f,85,ac,98,29, 39 
07,18,65,ac,85,ac,a5,14, 12 
29,f8,85,63,ad,1b,0Ff,18, dd 
65,2d,85,ad,a5,ac,18,65, 3d 
63,85,ac,a5,ad,65,15,85, bd 
ad,60,8e,26,0f,ae,27,0F, 2e 
d8,16,c9,08,d8,0b,a2,00, e® 
8e,28,0f ,8e,29,0£,8d,27, 67 
OF ,28,dd,ed,ae,26,0F,60, 16 
c9,0f,d0,0c,20,bf,0e,a9, 44 
00,84,27,0F,a9,0Ff,dO,e9, ®c 
a34,30,10,48,20,bf,0e,a9, 09 
00,84,28,0Ff,8d,29,0F,68, 97 


Dead 
Bea 
debd 
 Beb8 
Bec® 
Bec8 
Bedd 
BedB 
Beed 
BeeB 
defd 
def 
OF08 
OFo8 
of1® 
of1B 
OF20 
orF28 


4c,793,0e,cd,28,0f,d0,08, 6 
ee,23,0f,dd,cf,ce,29,0F, 1 
48,20,bf,0e,68,8d,28,0f, cd 
a9,01,8d,29,0F,d2,bd,c9, 3e 
0d,d0,09,2d,28,0F,c9,80, fc 
d0,02,f0,b2,a8,29,0F,F®, bi 
ab,e8,03,b®,0b,ad,28,0f, 97 
20,dd,ed,ca,d®,f7,f®,9c, 33 
a9,1a,20,dd,ed,ad,29,0Ff, 2c 
28,dd,ed,ad,28,0F,20,dd, ed 
ed,4c,7c,de,50,808,10,1b, 53 
08,00,01,02,03,05,06,07, 04 
08,023,2b,0c,0d,0f,19,11, Fa 
12,14,15,16,17,19,1a,1b, Fa 
1c,1e,1f,00,40,80,c0,00, 3d 
02,28,00,08,00,00,00,00, 08 
00,002,00,00,00,00,00,00, 00 
02,00,00,00,00,08,00,00, 08 


Listing 3: Hardcopyroutine zu FAN. Das Pro- 
gramm muß unter dem Namen „FAN.OC“ ab- 


gespeichert werden. 
18 pcke 53280,0:poke 53281 ,8:poke 
Bus. 12123 
=5208 print "[clr]Jload” chr$ 


(34)”"fan.oc” chr$ (34)”,8,1 


[4down]” 13559 
print "poke43,1:poke44, 64: 
poke16384 , 8: newL2down]” 34392 


print ”load” chr$ (34)"fan,hpt” 
chr$ (34)”,8” 13115 
print tab(12)”[Lyellbitte warten 
Cblk,down]” 32196 


print tab(8)”"[yellprogramm wird 
geladen[bik,down]” 32889 
print ”"run” 1768 


poke 631,19:for a=-632 to 635:poke 
a,l3:next a:poke 198,5 


33417 


Ja, informieren Sie mich, 


wie ich gemeinsam mit Greenpeace zur Erhaltung unserer 


Lebensgrundlagen beitragen kann. Schicken Sie mir das 
Informationsmaterial an diese Anschrift: 


Bitte schicken Sie diesen Coupon im Umschlag 

mit 2,40 DM Unkostenbeitrag in Briefmarken an: 
Greenpeace e.V., Hohe Brücke 1, 2000 Hamburg 11 
Spendenkto.:Nr. 2061-206, Postgiro Hmb.-BLZ 200 100 20 


ystemfehlermeldungen 
unterbrechen grundsätz- 
lich den Programmablauf, 
wie im Handbuch des C64 
zu lesen ist. Ob dies nun ein FILE 
NOT FOUND ERROR oder ein DI- 
VISION BY ZERO ERROR ist, alle 
Variablenwerte werden bei der an- 
schließenden Korrektur gelöscht. 
Mit einem Trick kann jedoch ein Pro- 
grammstop bei einem Fehler verhin- 
dert werden. Im Normalfall wird die 
Fehlernummer durch den Vektor in 
der Adresse 768/769 (dez.) in das 
x-Register geschrieben. Dieser Vektor 
muß so verbogen werden — mit 
POKE768, 215:POKE769,232 — so 
daß der Inhalt des x-Registers sinnvoll 
abgelegt wird und zur späteren Bear- 
beitung wieder gelesen werden kann. 
Hierzu bietet sich die unbenutzte Spei- 


System: C64 
Art: Utility 
Sprache: BASIC 


gesteuerten Fehlerverarbeitung. 


1d rem *#runnnunansn nun unannen 
.... 


11 rem * 
* 

12 rem * fehlerabfrage bei commodore 
E4* 
13 rem * 
* 


14 rem * 
- 


15 rem * ulrich fassbender 


16 rem * 
” 


17 rem * bonnerstrasse 74 


18 rem * 
“ 


19 rem * 5483 bad neuenahr-ahrweiler 
”- 


ed rem * 
- 


21 rem *® 
“ 


©2 rem * dieses programm faengt 
* 


| 23 rem * 
“ 


24 rem *® fehler ab und legt die 
“ 


285 rem * 
“ 


86 rem * fehlernummer in speicher- 
” 


27 rem * 
” 


e8B rem * zelle 2 ab, 
- 


wonach eine 


I ER N 


Programmname: Demoprogramm zur i 


Bei einem Fehler muß der Gomputer nicht gleich verzagen. 


CE | p54 uisTıng 


Systemfehlermeldungen ohne 
Programmbruch — wie ist das 
möglich? Ein kleiner Trick und 
etwas Programmierkunst lösen 
das Problem. 


cherzelle 2 an. Mit PEEK (2) kann 
man die Fehlernummer, welche nun in 
diese Speicherzelle geschrieben wird, 
abfragen. Zu beachten ist, daß am An- 
fang des Programms und nach jedem 
Fehler die Speicherstelle mit POKE 
2,0 zurückgesetzt werden muß, damit 
Fehler nicht mehrfach erkannt wer- 
den. 

Das Demoprogramm (Listing) zeigt im 
ersten Teil die Fehlerabfrage am Bei- 
spiel einer Funktion. Bei Definitions- 
lücken oder zu großen Ergebnissen er- 


29 rem * 
- 


38 rem * auswertung erfolgen kann 
- 


31 rem * 
“ 


36 rem m... nn... nn... nee 
.... 
48 dim F$(20) 
58 For r=2 to 20:read F$(r):next 
11590 
60 data File schon offen,file nicht 
offen, file nicht gefunden 1)45651 
65 data geraet nicht angeschlossen, , 
kein ausgabe-file,filename Fehlt 
15598 
7@ data falsche geraet-nummer,,,,, 
\ ungueltiges argument 33768 
75 data bereichsueberschreitung, ‚‚ı, 
division durch null 15921 
83: 
1908 def £fn F(x)=log (x) /Lix-HI+xTtx 


ir 
r 
y 
% 
” 
© 105 print 


3538 


J2114 
"Celr,downJf(x)=loglx)/Cx- 
NE YJ+xtxCdown]” 12539 
= 1128 for x=-H4 to 30 step 2 J1312 
= 120 print "x="x,"Fix)=";:gosub 508 
ei 12026 


= 13® next 1138 
= 2008 print "[down]) taste druecken": 


poke 198,B:wait 198,1 13073 


240 rem rennen nn 
... 


= 2580 rem * weitere beispiele 
- 


2PEO rem Hruunnnnnnnnnn nn nun nun nn een 
Fi ... 


Ki 308 print "CcirI* 1316 
BE 318 poke 768,215:poke 769,232 12283 
= 3208 poke 2,0 1556 
= 325 print "open 1,4:open 1,4” 12057 
je 338 open 1,4:open 1,4 31158 
335 print "***fehler : "Ff$(C peek (2)) 
2 31913 
= 348 print "Cdownlprint #2"; 21184 
345 printee 2252 
= 358 print "*“*fehler : "f$( peek (2)) 


31913 


ERRORS ÜBERLISTEN 


folgt die betreffende Meldung und 
nicht der gewohnte Programmab- 
bruch. 

Im zweiten Teil wird auf einige weitere 
Beispiele eingegangen. Es kann ohne 
Programmabbruch geprüft werden, 
ob das Diskettenlaufwerk angeschlos- 
sen ist, oder ein Kanal ordungsgemäß 
geöffnet wurde und vieles mehr. 
Leider ist es nicht möglich alle Fehler- 
meldungen abzulesen. Bei einem OUT 
OF DATA ERROR zum Beispiel, 
wird das Programm abstürzen. Auch 
mit diesem Programm ist es empfeh- 
lenswert, Programmversionen vor 
dem Start abzuspeichern. 

Wichtig ist, daß der Fehlervektor bei 
dem Beenden des Programms wieder 
in den Originalzustand versetzt wird: 
POKE 768,139: POKE 769,227 
(U.Fassbender) 


4 355 print "[downlload " chr$ 

(34) "1234* chrs c34)”,8* 22834 
360 load ”1234”,8 1955 
365 print "***fehler : "FSC pseek (2)) 
1 21913 

| 378 print "Cdownlopen 2,9,15," chr$ 
(34)”i" chr$ (34) 13178 
375 open 2,9,15,”"i"” 31283 
388 print "***fehler : "f$(C peek (2)) 
31913 

415 print "Cdownlopen 3,8:print#3,a” 
12030 
428 open 3,8:print#3,a 118393 
425 print "***fehler : "f$(C peek (2)) 

x 31913 
438 print "Cdownlload ” chr$ (34) 

”a chr$ (34)"”,8” 32232 
435 load ”",8 1579 
448 print "*®*fehler : "f$C peek (2)) 

31913 
445 print "CdownJload ” chr$ (3%) 

En chr$ (34)",3” 12327 
458 load "",3 1499 
455 print "***Ffehler : "f$( peek (2)) 

21913 
498 poke 768,139:poke 769,227:end 

12382 
499 ; 


= sv» rem * fehlermeldung ausschalten * 
S12 poke 768,215:poke 769,232 12289 
520 poke 2,0 J556 


sps rem .-m-—-. nn... nn. nn... een 
... 

526 rem hier kann der fehler auftrete 
n 

u 527 : 

ı 530 y*fn f(x) 

E34 


HA: 535 rem Hrrmnennnnnenenn nennen nenn 
... 

540 poke 768,139:poke 769,227 12264 

550 if peak (2)-® then print y:goto 
538 31805 


1605 


| 560 print F$C peek (23) 1880 
598 poke 2,08 I556 
608 return J142 


ende des listings 
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GRAFIKEN 


IM GROSSFÜRMAT 


ie jeder weiß, läßt 
sich der Bildschirm- 
rand beim C64 nicht 
ohne weiteres bearbeiten. 
Selbst die herkömmlichen Malpro- 
gramme bieten keine Möglichkeit den 
Rahmen zu editieren. Wie man den 
Rand füllt, zeigt das Programm „No 
Border Picture Maker“. Das Pro- 
gramm wird mit LOAD“name“,8 ge- 
laden und mit RUN gestartet. Nach ei- 
ner kurzen Initialisierungsphase er- 
scheint das Hauptmenü: 


1. Load Hires Pic 

Es können Bilder der Malprogramme 
Koalapainter, Blazing Paddles und 
Paint Magic geladen werden. Bei der 
Eingabe des Filenamens dürfen Son- 
derzeichen wie “?* und “*“ verwen- 
det werden. Mit Fl gelangt man in das 
Hauptmenü, mit F3 wird das Direc- 
tory ausgegeben. Nach dem Laden 
wird das Bild gezeigt. Die Farben las- 
sen sich jetzt mit Fl und F2 ändern — 
mit RETURN kehrt man in das 
Hauptmenü zurück. 


2. Make-Super-Pic 
Hiermit läßt sich die Grafik ohne 
Rand darstellen. Dazu wählt man mit 


System: C64/Floppy 

Art: Utility 

Sprache: Assembler 
Programmname: No Border 
Picture Maker 


0801 2d,08,c3,07,9e,28,32,30, 38 
0809 36,34,29,00,00,00,00,38, 82 
0B11 30,85,5f,39,08,85,69,a9, 9c 
0819 40,85,58,a9,21,85,5b,a9, bb 
0821 10,85,58,39,c9,85,59,20, bB 
0829 bF,a3,4c,90,c8,00,00,F2, ae 
0831 8c,08,c3,07,98,32,30,34, 27 
0839 38,30,f2,15,00,78,a9,08, 15 
0841 85,01,29,08,a2,30,86,b2, Fa 
0849 85,b3,a9,80,32,00,86,b4, 6e 
0851 85,b5,20,200,b1,b2,85,02, F2 
0853 e6,b2,d0,02,86,b3,b1,b2, 33 
OB61 c5,02,F0,1c,91,b4,e6,b2, a6 
0869 d9,02,e6,b3,e6,b4,d®d,ee, 13 


Mit „No Border Picture Maker“ 
lassen sich Grafiken errechnen, 
die sich über den gesamten 
Bildschirm erstrecken 


berechnete Grafik abgespeichert wer- 
den. Dazu gibt es zwei Möglichkeiten: 
Normal Size und Compact Size. Wird 
das Bild mittels Normal Size abgespei- 
chert, so belegt es bei einem Einladen 


Ohne störenden Rand: Gomputerschönheit auf C64. 


den Cursortasten einen passenden 
Bildschirmausschnitt und bestätigt 
wiederum mit RETURN. Ist die Gra- 
fik ohne Rand auf dem Bildschirm, so 
gelangt man mit der Space-Taste in 
das Hauptmenü zurück. Nun kann die 


0871 e6,b5,4c,41,08,a9,77,85, Bd 
0879 01,58,20,00,90,4c,e2,fc, f3 
0881 86,b2,d0,02,e6,b3,b1,b2, 33 
0889 d®,07,85,02,91,b4,4c,49, “4b 
08931 08,aa,86,b2,d0,02,e6,b3, 32 
0839 b1,b2,c5,02,£f0,d7,91,b4, b7 
0831 e6,b4,d0,02,86,b5,ca,d®, 2a 
0839 F5,e6,b2,d8,b1,e6,b3,4c, 23 
08b1 41,08, f2,FF,00,F2,FFf,00, 39 
B8b9 F2,FF,00,F2,Ff,00,F2,Ff, E3 
08c1 80,F2,FF,00,F2,Ff,00,F2, Oe 
06c9 FF,00,F2,FF,00,F2,Ff,00, FF 
BBd1 F2,FF,00,F2,Ff,00,F2,Fff, E3 
0843 B9,Ff2,FF,00,F2,fFFf,00,F2, Be 
OBel FF,00,F2,fFF,00,Ff2,Ff,00, ff 
8BeS F2,FFf,00,F2,FF,00,f2,Ff, £3 
OBrF1 00,F2,FFf,00,F2,FFf,00,F2, Be 
OBFS FF,09,F2,FF,00,F2,Ff,00, £EF 
0301 F2,FF,00,F2,FF,00,F2,Ff, £3 
09309 09, f2,FF,00,F2,FFf,00,F2, Be 
0311 FF,00,F2,FFf,00,fF2,Ff,00, Ef 
8319 fF2,Ff,00,F2,Ff,00,F2,Ff, £3 
0321 00,F2,FFf,00,f2,Ff,00,F2, ®e 


den Speicherbereich ab $8000. Es 
kann mit SYS 36864 auf den Bild- 
schirm gebracht werden. „Compact 
Size“ speichert das Bild in kompri- 
mierter Form ab. 

(M. Wolf) m 


09329 Ff,900,f2,Ff,00,F2,Ff,00, Ef 
09331 F2,FFf,00,F2,FF,20,f2,Fff, £3 
09339 00,F2,fFf,00,F2,FF,00,f2, ®e 
0941 FF,00,F2,Ff,00,F2,FFf,00, FE 
8949 F2,FF,00,F2,Ff,00,F2,ff, E3 
0351 00,F2,FF,00,F2,Ff,00,Ff2, ®e 
0959 FF,00,f2,fFf,00,F2,ff,00, FF 
0361 F2,FFf,00,F2,Ff,00,f2,Fff, £3 
0969 00,F2,FFf,00,F2,FF,00,F2, Be 
0971 FF,00,F2,ff,00,F2,ff,00, FF 
0979 F2,FF,00,f2,ff,00,F2,ff, f3 
0381 00,F2,FF,00,fF2,Ff,00,f2, Be 
0989 b2,00,32,00,bd,4a,63,9d, Bb 
09931 21,08,28,e0,16,d0,f5,20, 1c 
0999 44,e5,39,00,8d,4c,61,8d, 1d 
09a1 20,d0,8d,21,d0,a9,80,8d, d6 
09a9 Ba,02,a9,8e,20,d2,Ff,a9, 47 
03b1 08,209,d2,ff,a9,00,aa,39d, 78 
89b9 4d,61,88,2e0,03,d0,f8,ae, 71 
09c1 40,61,39,12,9d,4d,61,a9, 89 
09c9 03,8d,86,02,a2,00,88,50, d9 
0Sd1 61,30,09,bd,b0,60,20,b1, cd 
03d9 50,ae,50,61,bd,b6,60,bc, 3d 
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03e1 
0983 
osf1 
o3Ff9 
0a01 
0309 
Ball 
0a13 
Da2ı 
Ba29 
da31 
28a39 
Dal 
da49 
8a51 
0a53 
da61 
0a63 
8a71 
0479 
Da81 
0a83 
8aS1 
0a99 
Oaal 
Oaa9 
Babl 
Bab3 
Baci 
Bac3 
Badi 
Bad9 
Bael 
Bae3 
Bafl 
Bars 
0b21 
8bo3 
®b11 
0b19 
8b21 
0b23 
0b31 
8b33 
Ob41 
8b49 
0b51 
0b59 
®b61 
0b69 
0b71 
0b79 
0b81 
0b89 
0b31 
0b39 
Obal 
ObaS 
Obbi1 
Obb3 
®bci 
®bcS 
Obdi 
Obd3 
®bel 
ObeS 
Obfi 
Obf9 
8c01 
8c03 
8c11 
8c19 
0c21 
8c29 
0c31 
8c39 
OcH1 
2c4H3 
0c51 
0c59 
Oc61 
0c63 
0071 
0079 
2c81 


bc,680,20,1e,ab,ae,58,61, 
eB,e0d,06,dd,e1,a2,00,Be, 
50,61,a0,0c,bd,51,61,20, 
b1,58,ae,50,61,bd,4d,61, 
20,d2,Ff,bd,54,61,bc,57, 
61,20,1e,ab,ae,50,61,e8, 
ed,03,d0,db,a9,80,85,c6, 
20,et,Ff,f®,fb,a2,00,dd, 
90,61,F0,08,e8,e0,04,d®, 
F6,4c,8e,50,bd,S4,61,8d, 
9c,61,bd,98,61,8d,9d,61, 
6c,9c,61,84,d3,85,d6,20, 
10,e5,60,ae,4c,61,e8,e®d, 
03,F8,14,88,4c,61,4c,2a, 
5ß,ae,4c,61,ca,10,02,a2, 
02,8e,4c,61,4c,23,50,a2, 
00,8e,4c,61,4c,2a,50,ae, 
4c,61,bd,9e,61,8d,a4,61, 
bd,a1,61,8d,a5,61,6c,a4, 
61,20,44,e5,a9,00,8d,55, 
62,8d,56,62,84,57,62,a2, 
0c,88,01,86,d3,84,d6,20, 
190,e5,a9,36,a0,61,20,1e, 
ab,a2,0b,a0,06,86,d3,B4, 
d6,29,10,e5,a9,cc,a®,61, 
20,1e,ab,a2,2b,a0,08,86, 
d3,84,d6,20,10,e5,a9,dd, 
a8,61,208,1e,ab,a2,8b,a®, 
03,86,d3,84,d6,20,10,eS, 
a9,f1,a80,61,20,1e,ab,20, 
eu,Ff,F®,fb,c9,31,F0,2b, 
ce9,32,£0,04,c9,33,£0,0F, 
4c,45,51,29,6b,51,4c,85, 
51,208,81,51,4c,a5,51,20, 
97,51,4c,35,51,a9,40,85, 
£7,a9,3F,85,f8,a9,28,85, 
£f9,a9,43,85,fa,a9,21,8d, 
55,62,60,59,00,85,f7,a9, 
40,85,F8,39,00,85,f9,a9, 
44,85,Ffa,a9,01,8d4,56,602, 
60,a9,00,85,£7,39,40,85, 
£f8,a9,01,84,57,62,60,20, 
44,e5,a2,0c,30,01,86,d3, 
84,d6,20,10,e5,a9,a6,a®, 
61,20,1e,ab,a2,0d,a0,10, 
86,d3,84,d6,20,10,e5,a9, 
1f,a0,62,20,1e,ab,a2,0d, 
a8,12,86,d3,84,d6,20,10, 
e5,a9,2e,a0,62,20,1e,ab, 
a2,00,8e,13,62,89,20,9d, 
3c,03,e8,e0,14,d0,f8,a2, 
01,20,02,86,d3,84,d6,20, 
10,85,a9,01,0,62,20,1e, 
ab,ad,55,62,F0,1c,a2,08, 
8e,13,62,bd,14,62,20,d2, 
Ff,ae,13,62,9d4,3c,03,68, 
e0,07,d®d,ec,88,13,62,“c, 
3e,52,ad,56,62,f0,19,a2, 
00,8e8,13,62,bd,1b,62,20, 
d2,ff,as,13,62,9d,3c,03, 
eB,e2,03,d90,ec,8e,13,62, 
a2,00,86,cc,20,e4,ff,F£®, 
fb,c9,14,F0,38,c9,0d,f®, 
S5,c9,85,f0,46,c9,86,f2, 
1e,c9,20,30,87,c9,60,10, 
e3,ae,13,62,e0,10,fd,dc, 
20,d2,FFf,ae,13,62,9d,3c, 
03,ee,13,62,4c,42,52,a2, 
00,86,cf,a2,01,86,cc,20, 
2d,60,4c,a5,51,ae8,13,62, 
£0,ba,20,d2,Fff,ce,13,62, 
ae,13,62,39,20,9d4,3c,03, 
4c,42,52,a2,00,86,cf,a2, 
01,86,cc,4c,0d,50,a9,00, 
85,cf,a9,01,85,cc,a9,00, 
8d,86,02,20,44,e5,a9,01, 
a2,08,30,00,20,ba,ff,ad, 
13,62,a2,3c,a0,03,20,bd, 
ff,ad,57,62,d0,09,a9,00, 
a2,00,20,20,4c,db,52,a9, 
00,a2,Be,a0,1f,20,d5S,ff, 
a5,90,29,02,c9,02,F0,b3, 
a9,00,8d,2e8,63,20,09,53, 
20,a3,53,20,3F,56,ad,54, 
62,F0,03,20,£d,54,a9,00, 


Sd,ea,62,a9,01,8d,1e,62, 
“4c,99,52,89,00,85,5f,aS9, 
20,85,60,a9,40,85,5a,a9, 
3F,85,5b,a9,40,85,58,a9, 
bf,85,59,20,bf,a3,a5,f7, 
85,5f,a6,f8,86,60,a5,f7, 
18,69,88,90,01,e8,85,5a, 
eB,e8,88,86,5b,a9,88,85, 
58,a9,c3,85,59,20,bf,a3, 
ad,57,62,d0,3b,a5,f9,85, 
Sf,a6,fa,86,60,a5,F9,18, 
69,28,90,01,e8,85,5a,88, 
eB,e8,86,5b,a9,e8,85,58, 
a9,c7,85,59,20,bf ,a3,ad, 
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ad,f4,62,18,69,08,8d,f4, Fd 1641 cf,1d,a7,62,91,Fb,60,20, cd  18e9 d®,02,e6,b5,ca,d0,Ff5,a9, 
62,90,03,e8e,f5,62,4c,a3, 24 1649 2c,5d,b1,Ffb,29,cf,1d,a7, 57 - ı8F1 01,8d,2f,63,a9,08,8d,390, 
59,8d,01,d8,38,e9,08,c9, 6d 1651 62,91,Fb,60,20,0b,5d,b1, 2d I 189 63,35,b4,84,31,63,a5,b5, 
2a,F0,23,8d,01,d0,8d,05, 8b 1659 Fb,29,3F,1d,ab,62,391,fb, d2 7 1901 84,32,63,58,4c,b9,5d,81, 
d9,ad,03,d0,38,e9,08,8d, 22 , 1661 60,20,16,5d,b1,fb,29,3Ff, 9a 1909 b4,e6,b4,d®,02,e6,b5,a9, 
03,d0,84,07,d0,ad,f4,62, 6e 1669 1d,ab,62,91,Fb,60,29,22, dd 1911 00,81,b4,4c,34,5f,a0,00, 
38,89,48,8d,f4,62,b0,03, “41 1671 Sd,b1,fb,29,3F,1d,ab,62, e8 1919 b1,b2,ee,2b,60,c8,di,be, 
ce,fS,62,ce,f5,62,4c,a3, a9 1679 91,fb,60,28,20,5d,bi,fb, 5b I ıs21 d®,29,88,ae,2b,60,e0d,ff, 
5S9,ad,00,d0,38,e9,08,c9, 6c 1681 29,3F,1d,ab,62,91,fb,60, c8B °” ıg929 d®,03,4c,cf,Sf,e6,b2,d®,. 
10,f0,29,84,00,d0,8d,02, 79 1689 a2,00,ad,f®,c3,29,0F,20, e7? = 1931 02,86,b3,c6,b0@,a6,b0,a0, 
d®,ad,04,d0,38,e9,08,b®, 008 1691 44,5d,60,32,00,b1,fd,f2, 08 1939 Ff,d®d,df,c6,b1,a6,b1,e®, 
07,aa,a9,00,84,10,d0,8a, c8 | 1699 04,4a,20,44,5d,60,22,00, 35 1941 Ff,f0,03,4c,9e,Sf,a2,01, 
84,04,d0,8d,06,d0,ad,f4, bb ‚ 1631 b1,Fd,29,0f,20,44,5d,60, a7? 7) ı9ug 8e,2c,60,8d,2a3,60,a2,00, 
62,38,23,08,8d,f4,62,b0, 55 - 1689 a2,00,85,fe,18,69,04,85, 78 7° ıs5ı1 a0,00,2d,2b,60,c9,04,90, 
03,ce,f5,62,4c0,a3,59,20, ab = ı16bi1 fe,bl,fd,29,2F,20,44,5d, £66 T ı959 1d,aS,82,81,b4,e6,b4,d®, 
c1,5b,a9,36,85,01,29,00, 04 1669 aS,fe,38,89,04,85,fe,60, 14 - 1961 02,e6,b5,ad,2b,60,81,b4, 
8d4,f6,62,84,d3,5a,a9,80, ®e 16c1 dd,43,62,F0,09,e8,ec,42, d?_ 7 1969 e6,b4,d0,02,e6,b5,ad,?a, 
84,£7,62,8d,d4,5a,ad,f4, 9e 16c9 62,d0,F5,4c,e2,fc,60,ad, d4 - 1971 60,81,b4,4c,34,5f,ae,2b, 
62,85,f7,ad,f5,62,85,£8, 46 16d1 2e,63,d0,25,39,01,8d,86, 24 . 1979 60,ca,ad,2a,60,91,b4,e6, 
89,08,84,f9,62,a9,08,8d, 6a 16d3 282,20,44,05,a2,09,a0,0c, 6e 1981 b4,d9,02,e6,b5,91,b4,ca, 
fB,62,89,07,8d,fb,62,a89, 88 T 16e1 86,d3,84,d6,20,10,e5,a9, ad ° 1989 d®,f5,4c,34,5f,a9,13,a2, 
15,8d,fa,62,89,03,8d,fc, 56 ‚ 1689 33,a0,63,20,1e,ab,a9,00, F3 1991 10,86,b0,85,b1,29,80,a2, 
62,20,00,22,00,b1,f7,9d, ca 16F1 85,06,25,c6,f0,fc,4c,0d, dd 7) 1999 00,86,b2,85,b3,a9.0B.a2. 
00,80,e8,eB,eB,c8,ce,f8, 75 | 16f9 50,20,44,05,a9,00,84,2f, 56 | 1951 a®,86,b4,85,b5,60,00,00, 
62,£0,08,ce,Ffa,62,f0,1a, la 1701 63,29,80,8d,30,63,a9,10, 13 | ı9a9 00,20,44,e5,a9,02,a2,08, 
4c,d0,5a,a5,£7,18,69,40, 33 7) 1709 8d,31,63,a9,93,8d,32,63, eb 7 191 a0,00,20,ba,ff,a2,af,a®, 
90,02,e6,F8,86,f8,85,f7, FB . 1711 a2,05,20,02,86,d3,84,d6, 33 7) 1959 60,a9,01,20,bd,ff,20,c0, 
a0,00,29,08,8d,fB,62,4c, eb 1719 20,10,e5,39,0b,a0,63,20, fa a 19c1 Ff,a2,02,20,c6,ff,20,cf, 
de,Sa,ad,d3,53,18,69,4®, c8 1721 le,ab,20,e4,ff,f®,Ffb,c9, fi © 19089 fF,a5,99,d0,4b,20,cf,ff, 


GIYD Januar/88 
78 @OM Iamasa 


ln u a EZ 


19d1 
1949 
19e1 
1983 
19F1 
19£9 
1a081 
1a09 
lalı 
1a13 
la21 
1a29 
1a31 
1a39 
la41 
la49 
1a51 
1a59 
1a61 
1a69 
1a71 
1a79 
1a81 
1a89 
1a91 
1a93 
laal 
laaS 
labl 
lab3 
lacı 
lac9 
ladı 
lad3 
lael 
laeS 
lafı 
laf9 
1b®1 
1b8S 
1b11 
1b19 
1b21 
1b29 
1b31 
1b39 
1b41 
1b49 
1bS1 
1b59 
1b61 
1b69 
1b71 
1b79 
1b81 
1b89 
1b91 
1b39 
lbal 
1ba9 
1bbi1 
1bb9 
1bc1 
1bc9 
ibdi 
1bd9 
libel 
1be3 
ibfi1 
1bf9 
1c®1 
1c83 
1c11 
1c19 
1c21 
1c29 
1c31 
1c39 
1c41 
1c49 
1c51 
1c59 
1c61 


85,c6,f8,11,ad,77,02,c9, 
03,d0,03,4c,90,60,29,00, 
85,c6,8d,77,02,20,cf, FF, 
BO,cf,ff,F®,2b,a9,0d,20, 
d2,ff,a9,1d,20,d2,Fff,20, 
d2,ff,20,cf,ff,aa,20,cf, 
Ff,20,cd,bd,a9,20,20,d2, 
Ff,20,cf,Ff,Ff®,c2,a4,990, 
d0,06,20,d2,Ff,4c,8d,60, 
280,cc,ff,a9,02,20,c3,ff, 
89,0d,20,d2,ff,20,e4,Fff, 
fd,fb,69,24,00,01,02,03, 
04,05,c2,d9,f0,07,1e,35, 
60,60,60,61,61,61,b0,F2, 
14,c3,ae,00,c2,20,20,54, 
48,45,20,4e,4f,28,21,29, 
20,42,4f,52,44,45,52,20, 
20,c2,00,c2,20,20,20,50, 
49,43,54,55,52,45,20,4d, 
41,4b,45,52,21,20,20,20, 
c2,00,c2,20,43,4f,50,59, 
52,49,47,48,54,29,31,39, 
38,37,20,42,59,3a,20,c2, 
00,c2,20,20,20,4d4,49,43, 
48,41,45,40,20,57,4F,4c, 
46,21,20,20,20,20,c2,00, 
ad,f2,14,c3,bd,f2,06,00, 
0b,0d,0F,5a,6c,7e,61,61, 
61,20,4c,4f,41,44,20,48, 
49,52,45,53,2d,50,49,43, 
20,0d4,00,20,4d,41,4b,45, 
20,53,55,50,45,52,2d,50, 
49,43,20,0d4,00,20,53,41, 
56,45,20,53,55,50,45,52, 
2d,590,49,43,20,0d,00,11, 
$1,2d,13,b9,c7,dd,d5,F2, 
04,50,00,00,ef,30,53,50, 
58,5d,00,00,12,20,40,4f, 
41,44,20,4B,49,52,45,53, 
2d,50,49,43,20,92,00,12, 
20,53,41,56,45,20,53,55, 
58,45,52,2d,50,49,43,20, 
92,00,28,31,29,20,4b,4f, 
41,4c0,41,50,41,49,48,54, 
45,52,00,28,32,29,20,42, 
4c,41,53,49,4e,47,20,50, 
41,44,44,40,45,53,00,28, 
33,29,20,50,41,49,4e,54, 
20,4d,41,47,49,43,00,45, 
4e,54,45,52,20,50,49,43, 
2d,4e,41,4d,45,20,3a,20, 
00,00,3F,50,49,43,20,3F, 
20,50,49,28,00,46,31,20, 
3d,28,4d,41,49,4e,20,4d, 
45,48,55,00,46,33,29,3d, 
20,44,49,52,45,43,54,4P, 
52,59,f2,1c,00,50,49,43, 
54,55,52,45,20,48,41,53, 
20,4d,4f,52,45,00,54,48, 
41,48,20,34,290,43,4F,4c, 
4f,55,52,53,20,21,00,50, 
4c,45,41,53,45,290,43,4f, 
S2,92,45,43,54,f2,17,08, 
02,01,03,00,08,04,0c,00, 
20,10,30,080,80,40,c0,00, 
3b,48,55,62,f2,04,5c,6f, 
7c,89,96,F2,04,5c,83,b®, 
bd,ca,f2,04,50,d7,e4, fi, 
Fe,f2,04,5c,00,00,4e,4F, 
20,50,49,43,54,55,52,45, 
28,49,4e,28,44,45,4d,4Ff, 
52,59,20,21,F2,06,00,0b, 
0c,0f,01,0f,0c,0b,f2,09, 
00,45,4e,54,45,52,20,4e, 
41,4d,45,20,3a,20,00,53, 
41,56,45,20,49,4e,20,12, 
4e,92,4f,52,4d,41,4c,20, 
4f,52,20,12,43,92,4f ,4d, 
Sß,41,43,54,20,53,49,5a, 
45,f2,06,00,4e,4f,20,53, 
55,50,45,52,2d,50,49,43, 
280,41,56,41,49,40,41,42, 
4c,45,00,18,08,c3,07,9e, 


EL TER REN 


2 1069 


1c71 
1c79 
1c81 
1c83 
1c91 


RT) 


ical 
1ca9 
icb1 
1cb9 
icci1 
1cc9 
icdi 
1cd9 
icel 


' i1ce9 


icfi 
l1cf9 
1d01 
1d83 
1dı1 
1d19 
1d21 
1d23 
1d31 
1d39 
1d41 
1d49 
1d51 
1d59 
1d61 
1d69 
1471 
1d79 
1d81 
1d83 
1d91 
1499 
idal 
1da9 
1db1 
1db3 
idci 
1dc9 
1ddi 
1dd9 
idel 
1de3 
1dfi 
1dfg 
le®1 
1e09 
1ei1 
1e19 
le21 
le29 
1e31 
1e39 
le41 
1e49 


leSı 
le59 
le61 
1869 
1e71 
1e79 
1881 
1e89 
1e91 
1899 
leal 
leaS 
lebi1 
leb3 
leci 
lec9 
ledi 
led9 
leeil 
lse3 
lef1i 
lef9 


Listing des „No Border Picture Maker“. Es muß mit dem Checker eingegeben werden. 


28,32,30,38,30,29,29,41, 
54,20,24,39,30,39,30,21, 
eB,F2,Ff,00,F2,FFf,00,F2, 
Ff,00,f2,FFf,00,F2,Ff,00, 
f2,ff,00,F2,FFf,00,f2,Ff, 
00,F2,Ff,008,F2,FF,00,F2, 
£f,00,f2,Ff,00,F2,ac,00, 
E£,FE,fFB,FF,FF,FB,c0,00, 
00,c0,00,08,c0,00,90,c0, 
02,00,c0,08,00,c0,00,00, 
c0,200,9090,c0,20,00,c0,00, 
02,c0,00,08,c0,00,00,c0, 
00,008,c0,00,00,c0,20,00, 
cd,f2,08,00,5f,f2,0c,00, 
c8,00,00,c0,00,00,c0,00, 
00,c0,08,00,c0,08,00,c®, 
08,88,c0,00,00,c0,00,00, 
c0,00,00,c0,20,00,c0,00, 
09,c0,00,00,c0,00,00,c0, 
00,0208,c0,008,00,FF,FFf,F8, 
FF,FF,fB,aa,1f,Ff,ff,1f, 
£f,ff,00,00,03,00,00,03, 
00,00,03,00,00,03,00,00, 
03,00,00,03,00,00,03,00, 
00,03,02,08,03,00,00,03, 
00,020, 03.00, 00,03,00,00, 
03,00,00,03,00,00,03,F2, 
0c,00,3F,f2,0e,00,03,00, 
00,03,00,00,03,20,00,03, 
00,00,03,00.00.03.00.00. 
03,00,00,83,00,00,03,00, 
00,23,00,00,03,00,00,03, 
00,00,03,08,00,03,00,00, 
03,1f,FF,FF,1if,Fff,ff,aa, 
r2,Ff,00,F2,FFf,00,F2,Ef, 
00,F2,fFf,00,F2,Ff,00,F2, 
£f,00,F2,fFf,00,F2,Ff,00, 
F2,Ff,08,F2,Ff,00,f2,FfFf, 
vo,f2,Ff,00,f2,Ff,00,f2, 
F£F,00,f2,Ff,00,F2,Ff,00, 
F2,Ff,00,fF2,fFF,00,F2,FF, 
o0,F2,ff,00,F2,FFf,00,F2, 
£f,00,F2,Ff,00,F2,FF,00, 
F2,Ff,00,F2,Ff,00,f2,ff, 
00,fF2,Ff,00,f2,FF,00,F2, 
FfF,00,f2,Ff,00,F2,1F,00, 
a9,36,85,01,a9,f8,85,F7, 
a9,a3,85,F8,a2,00,a0,00, 
b1,F7,9d4,93,92,e8,c8,c®, 
08,d0,F5,20,00,25,£8,c9, 
b7,F0,08,18,69,04,85,F8, 
4c,10,90,b9,f8,8F,9d4,93, 
932,e8,c8,c8,08,d0,f4,a9, 
cc,85,f7,a9,92,85,F8,20, 
43,92,ad,Ff,bf,8d,cb,32, 
a9,00,8d,ff,bFf,a9,04,85, 
02,22,08,88,10,bd,80,32, 
99,00,d0,88,88,ca,10,f5, 
a2,03,bd,7c,92,30,07,99, 
27,d0,88,18,fa,ca,bd,7c, 
92,8d,26,d8,ca,bd,7c,82, 


8d,25,d0,ca,bd, 7c,92,8d, 
21,d0,39,01,8d,00,dd,a9, 
Ff,8d,15,d0,8d,17,d0,8d, 
1cC,d0,8d4,1d,d0,78,a9,0c, 
8d,12,d0,ad,11,d0,29,7F£, 
8d,11,d0,39,01,8d,1a,d®, 
89,90,a32,ce,8d,15,03,Be, 
14,03,a9,90,8d4,0e,dc,58, 
a9,00,85,06,20,9F,Ff,aS, 
c6,f0,F9,ad,77,02,c9,20, 
dd,e2e,20,05,92,60,a0,®e, 
88,d2,fd,a2,2d,4c,da,S®, 
a2,2b,ce,16,dd,ee,16,d®, 
ca,f®,08,20,Ffa,91,24,01, 
4c,da,90,a6,02,bc,89,32, 
bd,8e,92,20,04,92,ea,8d, 
01,d0,ce,16,dd,ee,16,d®, 
8c,18,d0,8d, e3, d®,8d,05, 
d®,8d,07,d0,8d,09,d0,8d, 
8b,d0,8d,0d,d0,84,0F,d®, 
ea,ce,16,d0,ee.16.d0.c6. 
02,30,13,ad,12,d0,29,97, 


1F01 
1f09 
ıF11 
ı1F19 
ır21 
ır29 
1F31 
1f39 
ı1F41 
1F49 
1F51 
1F59 
1f61 
Bu 169 
Bu 171 
= 1873 
== ı1f81 
BE ı1£89 
ı1F91 
199 
1fal 
1fa9 
1fb1 
1Ffb9 
1fc1 
1fc9 
i 1Fd1 
 1fd9 
1fel 
1fe9 
1fFf1 
ı1FFf9 
2001 
20039 
2011 
= 2019 
m 2821 
2023 
2031 
2039 
2041 
2049 
= 2051 
2059 
2061 
2069 
ı 2071 
2079 
2081 
2089 
2031 
2039 
m 2da1 
= 2083 
20b1 
= 20b9 
' 20c1 
20c9 
20d1 
2049 
edel 
2083 
Porf1 
2OF9 
2101 
= 2109 
= aııı 
2118 
2121 
2129 
2131 


49,1c,8d,11,d0,a2,28,c1, 
01,ea,ea,4c,da,90, 20, fa, 
91,a2,17,ce,16,d0,ee,16, 
d®d,ca,f0,08,28,Fa,31,24, 
01,4c,3b,91,a9,13,8d ı. 
d0,28,04,92,c1,01,d1,01, 
ca,16,d0,e2e,16,d0,20,04, 
92,20,04,92,c1,01,ea ‚ae, 
10, ce.16, d®,ee,16,d0,ca, 
FO,0b.20,04.92.20.04. 92. 
24,01,4c,69,91,20,04,82, 
c1,01,24,01,a0,87,a9,0c, 
8d,21,d®,ce,16,d® 'ee.18. 
d8,8c,18,d8,8d4,03,d0,8d, 
05,d0,8d,07,d0,8d,09,d0, 
8d,0b,d0,84,0d,d0,8d, OF, 
d®d,ea,ce,16,d0,ee,16,d2, 
20,04,92,20,04,92,c1,01, 
ea,a2,19,ce,16,d®, ee.16, 
dd,ca,f®,0b,20,04,92,20, 
04,92,24,01,4c,bb,31,a9, 
d7,8d,18,d0,39,190,84,01, 
d®,84d,03,d0,84,05,d0,8d, 
07,d0,84,09,d0,8d,0b,d2, 
8d,0d,d0,8d,0F,d®,a9,04, 
85,02,839,01,84,19,d®,4c, 
81,ea,ad,12,d0,29,07,49, 
1c,8d,11,d0,69,78,a9,01, 
8d,de,dc,a9,31,8d,14,03, 
a9,sa, ‚ad. 15,03,39,03, Bd, 
00,dd,a9,00.8d,15.d0.8d. 
1a,d®,a9,17,8d,18,d0,a9, 
1b,8d,11,d0,39,93,85,£7, 
a9,92,85,£8,20,43,92,ad, 
cb,32,8d,ff,bf,a9,37,B5, 
01,58,60,a9,F8,85,f9,a9, 
a3,85,fa,a0,00,b1,F7,31, 
£9,c8, co, 08,d0,F7,20,00, 
a5,f7,18,69,08,85,f7,30, 
02,e6,F8,a5,fa,c9,b7,f®, 
08,18,69,04,85,fa,4c,4d, 
92,b1,f7,99,F8,8F,c8,c®, 
08,d0,F6,60,00,05,03,0d, 
00, 30, 60,90,c0,f0,20,50, 
c0,37,97,87,b7,c7,e2,bB, 
Be,64, 3a, f2,39,00,06,0d, 
14,1b,22,29,30,37,04,0b, 
12,19,20,27,2e,35,03, da, 
11,18,1F.26.2d.34.02.08. 
18,17,1e,25,2c,33,01,08, 
of,16,1d,24,2b,32,00,07, 
0e,15,10,23,2a4,31,05,0c, 
13,1a,21,28,2F,36,f2,1e, 
00,F2,F2,F2,00,00,00,00, 
00,20,00,09,20,00,00,00, 
00,00,00,00,00,00,00,78, 
39,36,85,21,a9,b0,a2,00, 
86,b2,85.b3,29.08.a2.01. 
86,b4,85,b5,a0,00,b1,b2, 
85,802,e6,b2,d®,02,e6,b3, 
b1,b2,c5,02,F0,1c,91,b4, 
e6,b2,d0,02,e6,b3,e6,b4, 
d®,ee,e6,b5,4c,b1,c8,a9, 
77,85,01,58,20,59,a6,“c, 
ae,a7,e6,b2,d0,02,86,b3, 
b1,b2,d0,07,35,02,91,b4, 
“c,b9,c8,aa,e26,b2,d0,02, 
e5,b3,b1,b2,c5,02,£0,47, 
S1,b4,e6,b4,d0,02,e6,b5, 
ca,d®d,fS,86,b2,d®,bl,e6, 
b3,4c,b1,c8,00,00,00,00, 
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WINDOWo IM C64 


ie man ein mög- 
lichst übersichtliches 
Menü programmiert, 
welches jederzeit aufruf- 
bereit ist und ansonsten den Pro- 
grammablauf nicht stört, wird schon 
manchem Kopfzerbrechen bereitet ha- 
ben. Da bietet sich die bewährte Win- 
dowtechnik der größeren Rechner an: 
Aus einer Standardmenüzeile lassen 
sich Fenster öffnen, welche Unterme- 
nüs enthalten, die per Tastendruck 
oder Maus angewählt werden. 


14 neue Befehle zum 
editieren von Windows 


Allerdings kennt der C64 keine 
BASIC-Befehle, mit denen sich solche 
Windows editieren lassen. Eine Folge 
von PRINT-Befehlen könnte natürlich 
ein Window auf den Bildschirm brin- 
gen, aber die Hintergrundinformation 
ginge dabei verloren. Eine bessere Lö- 
sung bietet „Pull-Down-BASIC“, eine 
Erweiterung des BASIC-Befehlssatzes 
des C64 um 14 neue Befehle. „Pull- 
Down-BASIC“ wird mit 
LOAD,„name“,8,1 

geladen und nach der Eingabe von 
NEW mit SYS 51314 gestartet. Das 
Programm liegt dann im Speicher- 
bereich von $C000—$C8D3. Für die 
Zwischenspeicherung von Hintergrund- 
informationen wird der RAM-Bereich 
von $A000—$BFFF als Speicher be- 
nutzt. Die entsprechenden Bereiche 
des Farb-RAMs werden im RAM ab 
$E000 abgelegt. Es wird also keinerlei 
BASIC-Speicherplatz benötigt — alle 
38911 BASIC-Bytes stehen dem Pro- 
grammierer zur Verfügung. Neuer Be- 
fehlssatz: 

SET # 

Form: SET# n, zl, sl, z2, s2 

n — Nummer des Windows (es sind 
maximal acht Windows möglich) 
zl, sl — Zeile und Spalte der linken 
oberen Ecke des Windows, ausgehend 
vom linken oberen Bildschirmeck. 

z2, s2 — Zeile und Spalte der rechten 
unteren Ecke. Der Set-Befehl definiert 
ein Window. Der Computer speichert 
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Windowtechnik sorgt bei 
68 000er-Rechnern für 
eine übersichtliche 
Benutzeroberfläche und leicht zu 
bedienende Menüführung. Mit 
„Pull-Down-BASIG“ kann man 
sich auch auf dem 664 diese 
Vorteile erschließen. 


Zeıgt 
Nummeiı 


nun das Video-RAM in den Bereich 
des angegebenen Windows. War das 
Window bereits definiert und nicht 
mit RESET # n zurückgesetzt, so er- 
scheint ein WINDOW SET ERROR. 


CLEAR # 

Form: CLEAR# n 

n — Nummer des Windows 

Mit CLEAR +# kann der Speicherbe- 
reich des Windows n gelöscht werden. 


1-dowun as 


pu 
3 „pull-gown demo 
eno 
31 blocks free. 


Directory-Ausgabe im Window. Wird das Fenster geschlossen, so erscheint augenblicklich 


wieder der Hintergrund 


Befehl Abkürzung Zu drückende Tasten 
SET# sE s (shifte) 
CLEAR#_clE el (shifte) 
COLOUR #coL co (shift 1) 
INVERT# inV in (shift v) 
FILL# fl f (shift i) 
WRITE# wR w (shiftr) 
BOX # bO b (shift o) 
UP# up (shift p) 
DOWN# do (shift 0) 
LEFTT#_ — - 

RIGHT# — = 

DIR# diR di (shiftr) 
MENU# mE m (shifte) 
RESET# resE res (shifte) 


Alle Befehle lassen sich — wie gewohnt — 
auch abkürzen 


COLOUR # 

Form: COLOUR # n,f 

n — Nummer des Windows 

f — Farbcode (0—15) 

Hiermit wird die Farbe der Zeichen im 
Window n gesetzt. Die Farbcodes sind 
dem Handbuch zu entnehmen. Wird 
ein unerlaubter Farbcode gewählt, so 
gibt der Computer die Fehlermeldung 
ILLEGAL COLOUR-CODE ERROR 
aus. 


WRITE # 

Form: WRITE# n, z, s, a$ 

n — Nummer des Windows 

z — Spalte des Windows 

s — Zeile des Windows 

a$ — Zeichenkette 

Der Text, der in der Variablen a$ ent- 
halten ist, wird in die angegebene Zeile 
und Spalte des Windows Nummer n 


geschrieben. Die Textlänge darf die 
Länge des Windows nicht überschrei- 
ten, da sonst ein TEXT TOO LONG 
ERROR ausgegeben wird. 


BOX + 

Form: BOX # n, zl, sl, z2, s2 

n — Nummer des Windows 

zl, si Koordinaten der linken oberen 
Ecke des Rechtecks 

z2, s2 — Koordinaten der rechten un- 
teren Ecke 

Der BOX #-Befehl zeichnet ein Recht- 
eck in das angegebene Window. Wer- 
den die Koordinaten nicht angegeben, 
so wird das äußerste Rechteck gemalt. 


INVERT # 

Form: INVERT# n, z 

n — Nummer des Windows 

z — Zeile 

Der INVERT #-Befehl invertiert eine 
Zeile des angegebenen Windows. Liegt 
z nicht im Bereich der Zeilen im Win- 
dow, erscheint die Fehlermeldung IL- 
LEGAL LINE OR COLUMN ER- 
ROR. Fehlt die Variable z, so wird das 
gesamte Window invertiert. 


System: C64 

Art: BASIC-Erweiterung 

Sprache: Assembler 
Programmname: Pull-Down-BASIC 


Was 


PT 


c000 a6,73,20,04,84,0F,bd,00, £3 
c008 02,10,07,c9,ff,f®d,3e,e8, 36 
c018 d®,f4,c9,20,F0,37,85,08, ba 
c018 c9,22,f0,55,24,0f,70,2d, 39 
cd20 c9,3Ff,d0,04,39,99,d0,25, ®f 
cd28 c9,30,90,04,c9,3c,90,1d, 23 
c030 84,71,30,00,84,0b,88,86, 2d 
c038 7a,ca,c8,s8,bd,00,02,38, 17 
c040 F9,9e,a0d,f0,F5,c9,80,d0, e7 
c04B 2F,05,0b,a4,71,e8,c8,99, “4a 
c0598 fb,01,c9,00,£0,38,38,e9, c8 
c058 3a,F0,04,c9,49,d0,02,85, 7d 
c060 0£,38,e9,55,d0,20,85,08, 17 
c06B bd,00,02,F0,20,c5,08,f®, 83 
c078 dc,c8,99,fb,01,e8,d0,£0, ac 
c078 a6, 7a,e6,0b,c8,b9,9d,a®d, 12 
c080 19,Ffa,b9,9e,a0,d0,b5,Ff0, c7 
coOB8 OFf,bd,08,02,18,bd,99,fd, 40 
c030 01,c6,7b,a9,ff,85,7a,60, al 


er 


nr. 


STEHE mE - 
en # ae 


7 c098 a0,00,b9,c3,c0,d0,02,c8, c® 
7 000 e8,bd,00,02,38,F9,c3,c0, 5b 
 cBaB fO,F5,c9,80,d0,04,05,0b, 09 
® c0b® d®,99,36,7a,e6,0b,c8,b9, 4b 

' cdb8 c2,c0,10,Fa,b9,c3,c8,d®, ff 
 c0c0 eB,f0,c6,53,45,54,a3,57. a0 


Er 


cöcB 52,49,54,45,a3,43,4f,4c, 7b 
c0d® 4F,55,52,a3,43,40,45,41, a5 
c@dB 52,a3,42,4Ff,5B,a3,49,4e, 53 
c0ded S6,45,52,54,83,46,49,4c, 69 
cßeB 4c,a3,55,590,83,44,4f,57, 05 
cof® YMe,a3,44,49,52,83,4d,45, Se 
cOfB 4e,55,a3,52,49,47,48,54, 40 
c100 a3,4c,45,46,54,a3,52,45, 14 
c108 53,45,54,33,00,00,c3,16, 6c 


um 


w 


ze 


nen 


FILL# 

Form: FILL# n,z,c 

n — Nummer des Windows 

z — Zeile 

ce — ASCII-Code des Zeichens, mit 
dem eine Zeile gefüllt werden soll. 
FILL # füllt eine Zeile in einem Win- 
dow mit Zeichen. Steuerzeichen sind 


nicht erlaubt — sie erzeugen einen 
ILLEGAL CHRS$-CODE ERROR. 
DIR # 


Form: DIR#n 

Gibt das Directory im Window Num- 
mer n aus. Das Window sollte minde- 
stens 32 Spalten breit und zwei Zeilen 
hoch sein. 


MENU # 

Form: MENU# n, z...zn 

n — Nummer des Windows 

z...zn — Aufzählung der Zeilen, in de- 
nen ein Menüpunkt steht. Mit diesem 
Befehl ist es möglich, ein Untermenü 
in ein Window zu schreiben. Zeilen, in 
denen ein Menüpunkt steht, folgen als 
Aufzählung hinter der Angabe der 
Window-Nummer. Beispiel: 
MENU# n, 1,2,7,8 


4 ©110 c3,a9,c4,04,c4,44,c4,d8, 44 
= e118 c5,bf,cS,cd,c6,1c,c6,59, 14 
c120 c6,36,c7,55,c8,3b,c8,05, ei 
= e128 c4,6c,c2,80d,c2,19,02,25, 51 
c130 c2,33,c2,43,c2,50,c2,66, da 
. e138 c2,79,c2,8b,00,00,20,00, 89 
 c140® 00,00,00,00,00,00,00,00, 00 
 e148 00,00,00,c0,5a,c1,8Ff,ci1, a8 
- c1508 00,00,00,00,90,00,08,00, 00 
i c158 00.00,10.0F.24.0F.30.0b. 3b 
' ©1680 c9,ff,f0,07,c9,cc,b0,06, 59 
- e168 4c,24,a7,40,F3,a6,38,89, le 
 €e17® cb,aa,84,49,a0,ff,ca,f®, d7 
| c178 08,c8,b9,c3,c0,10,Fa,30, b® 
- c180 f5,c8,b9,c3,c0,30,05,20, 38 
 e188 47,ab,d®d,f5,4c,ef,a6,20, 5b 
| c190 73,00,20,98,c1,4c,ae,a7, 76 
c198 c9,cc,b8,06,20,79,00,4c, 02 
c1a® ed,a7,c9,da,b0,f6,48,20, 17 
cla8 9b,b7,ca,e8,08,90,03,4c, Fe 
c1b® 48,b2,20,ad,c2,aa,a0,00, c2 
 e1b8 bd,ed,c1,99,44,c1,88,c8, 3b 
— c1c® c0,04,d0,f4,ad,46,c1,38, 87 
 elcB ed,44,c1,aa,e8,8e,49,c1, al 
c1d®d ad,47,c1,38,ed,45,c1,aa, ac 
c1d8 eB,88,48,c1,68,38,89,cc, 2e 
cle® Ga,aa,bd,0e,c1,48,bd,0f, 35 
cleB c1,48,4c,79,00,00,20,00, “4c 
c1f® 00,00,00,00,200,020,00,00, 00 
c1f8 00,00,00,00,00,00,00,00, 00 
c200 20,00,00,00,00,00,00,00, 00 
c208 00,00,00,00,80,57,49,4e, a5 
c2l® 44,4f,57,20,53,45,d4,00, Od 
c218 08,4e,4f,20,4d,45,48,55, e2 
c220 2d,4c,49,4e,c5,57,49,4e, 45 
c228 44,4f,57,20,4e,4f,54,20, SE 
c230 53,45,d4,57,49,4e,44,4f, 7b 
c238 57,20,54,4F,4f,20,53,4d, 71 
c24® 41,4c,cc,54,45,58,54,20, Be 
7 c24B S4,4f,4f,20,40,4f,4e,07, b8 
= 258 49,4c,4c,45,47,41,40,20, 36 
" e258 4c,49,4e,45,20,4f,52,20, OF 


Aut 


ny 


Ta 
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664 LISTING 


Dieser Befehl wählt die Zeilen 1,2,7 
und 8 als Menüzeilen aus. 

Die Auswahl der Menüpunkte wird 
mit den Cursortasten vorgenommen 
und mit RETURN angewählt. Die Zei- 
lennummer des Menüpunkts steht 
dann in Adresse 2 und kann mit 
PEEK(2) abgefragt werden. 

RESET # 

Form: RESET# N 

Dieser Befehl setzt ein definiertes 
Window wieder zurück. Die Hinter- 
grundinformation wird wieder sicht- 
bar. War das Window noch nicht defi-. 
niert, so erscheint ein WINDOW NOT 
SET ERROR. Die folgenden vier Be- 
fehle dienen zum Scrollen der Win- 
dows. 

UP# N — scrollt das Window einmal 
nach oben. 

DOWN # N — für das Scrollen nach 
unten, 

LEFT# N — nach links 

RIGHT # N — und nach rechts. 
Tipphinweise: 

Das Listing muß mit dem Checker ein- 
gegeben werden. Als Startadresse ist 
C000 anzugeben. (R.Ax) U 


c260 43,4f,4c,55,4d,ce,49,4c, 6B 
c268 4c,45,47,41,40,20,43,4Ff, 2d 
c278 “4c,4f,55,52,2d,43,4f,44, £5 
c278B c5,49,4c0,40,45,47,41,4c, 6f 
c288 20,43,48,52,24,2d,43,4Ff, be 
c2BB 44,c5,00,54,4f,4F,20,4d, FF 
c239 41,48,59,20,4d,45,4e,55, 2d 
c238 2d,4c,49,48,45,d3,9d,9d, 4F 
c2a® Ba,aa,bd,2b,c1,85,22,bd, 33 
c2aß 2a,cl,4c,45,a4,86,02,8a, 07 
c2b® 0a,03,60,36,02,bd,3c,c1, 7b 
c2bB 60,20, fd,ae,20,98,b7,ec, dc 
c2c® 49,c1,b0,04,a9,00,f0,02, ca 
c2cB a9,01,60,39,01,d0,02,a9, ea 
c2d® 00,60,20,fd,ae,20,9e,b7, 39 
c2d8 ec,48,c1,b®,eb,a9,00,68, 97 
c2e® S0,06,f9,04,29,01,d0,e9, 83 
c2eß a9,00,69,22,05,bd,4a,c1, 39 
c2f® Sd,04,03,ca,10,£7,4c,di, 67 
cefB c2,20,Ffd,ae,20,9e8,b7,e8d, 49 
c308 19,90,05,49,05,4c,a0,c2, 7d 
c308 86, fe,20,fd,ae,20,9e,b7, 21 
c310 e0,28,b0,ef,86,ff,60,20, 40 
c318 b3,c2,f®0,05,39,00,4c,a®, 30 
c320 c2,20,f9,c2,a5,fe,a6,ff, 26 
c328 85,fc,86,Fd,20,e0,c7,a5, 69 
c330 02,02,0a,28,a2,00,b5,fc, b5 
c338 99,ed,c1,c8,e8,e8,04,d0, e2 
c348 FS,a6,02,fe,3c,c1,a2,00, 71 
c348 B6,Ffa,20,F0,e9,20,24,ea, cd 
c350 20,6b6,c3,80,00,b61,d1,91, 68 
c358 fb,b1,f3,91,fd,c8,c®,28, 78 
c360 d®O,fF3,e6,fa,a6,fa,ed,13, 3c 
c368 d®d,e0,60,a6,d1,a5,d2,18, 998 
c37® 69,90,86,fb,85,fc,a6,f3, 35 
c378 a5,f4,18,69,08,86,fd,85, 5b 
c388 fe,a6,02,f0,11,a5,fc,18, bb 
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c388 69,04,85,fc,a5,fe,18,69, 45 
c330 84,85,fe,ca,d®d,ef,60,c9, 2c 
c338 20,998,0c,c9,880,90,04,c9, 08 
c3a® ad,50,04,22,00,F0,02,a2, e4 
c3a8B 01,60,20,b3,c2,d0,05,a9, Sd 
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PC, Telecoms International; GRIECHENLAND: Mi- 
cro and Computer Age; INDIEN: Dataquest; ISRAEL: 
People & Computers Weekly, People & Computers 
Biweekly; ITALIEN: Computerworld Italia; JAPAN: 
Computerworld Japan; KANADA; Computer Data; 
MEXICO: Computerworld Mexico; NIEDERLANDE: 
won Nederland, PC World Benelux; 
NEUSEELAND: Computerworld New Zealand; NOR- 
WEGEN: Computerworld Norge, PC World Norge; 
OSTERREICH: Computerwelt Osterreich; SAUDI 
ARABIEN: Arabian Computer News; SUD-KOREA: 
Computerworld Korea, PC World Korea; SPANIEN: 
Cimworld, Computerworld Espana, Commodore 
World, PC World Espana, Communicaciones World, 
Informatica Industrial; SCHWEDEN: Computer Swe- 
den, MikroDatorn, Svenska PC World; SCHWEIZ: 
ini: een Schweiz; UNGARN: Computer- 
world SZT, PC Mikrovilag; VENEZUELA: Computer- 
world Venezuela; VEREINIGTE STAATEN VON 
AMERIKA: Amiga World, CD-ROM Review, CIO, 
Computer Currents, Computerworld, Computers in 
Science, Digital News, Federal Computer Week, 

Micro, Focus Publications, InCider, Infoworld, 
Macintosh Today, Macworld, Computer + Software 
News (Micro Marketworld/Lebhar-Friedman), Net- 
work World, PC World, Portable Computer Review, 
Publish!, PC Resource, Run, Windows; VOLKS- 
REPUBLIK CHINA: China Computerworld, China 
Computerworld Monthly 
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CSJ — Computer Soft, CSV Riegert, Computer 
World, Combo AG, dekatron HD, Hofstede, Hoff- 
mann, IDEE-SOFT DINKLER, Ludwig, Matz, Print 
Technik, Scheiba, Tornado Computer, Walter, Zille- 
Software 


board- 


Gebrauchs- 
Anweisung 


l. Anzeigentext in die vorgedruckten 
Zeilen der Karte schreiben — maxi- 
mal 6 Zeilen mit Anschrift oder Te- 
lefon-Nummer (pro Buchstabe, 
Satzzeichen, Wortzwischenraum = 
1 Kästchen). 

2. Rubrik und Bereich ankreuzen, 
Adresse auf der Rückseite der Kar- 
te angeben. 

3. Datum und Unterschrift nicht ver- 
gessen 

4, Karte zusammen mit 5-DM-Schein 
in Umschlag stecken, 

5, Umschlag zukleben, ausreichend 
frankieren und abschicken an: 
CW-Publikationen 
— RUNboard — 

Postfach 40 04 29 
8000 München 40 

6. Die Anzeige erscheint im nächst- 

möglichen RUNboard. 


Ich habe die 
Gelegenheit 


Ichhabea 

Gelegenheits-Anzeige im RUNboard 
bestellt. Sechs Zeilen zum Taschen- 
geld-Tarif von nur DM 5.— inkl. ges. 
Mehrwertsteuer. Die DM 5.— habe 
ich der Bestellung beigelegt. 


-o-the 


gm 


Ich habe am beider 


RUN-o-thek Diskette(n) 
mit den Programmen aus RUN- 


Ausgabe_________bestellt. 
Preis pro Diskette: DM 21,80 plus 
DM 3,— Versandkosten = DM 24,80 


© Bezahlt mit V-Scheck-Nr. 
Konto-Nummer 
BLZ/Geldinstitut 
Ich bezahle per Nachnahme. 


c3b® 
c3b8 
c3c® 
c3c8 
c3d® 
c3d8 
c3ed 
c3e8 
c3f® 
c3f8 
c490 
c40B 
c410 
c418 
c420 
c428 
c430 
c438 
cH4o 
c448B 
c450 
c458B 
c460 
c468 
c470 
c478 
c4B0 
c488 
c490 
c498 
c4a® 
c4a8B 
c4b® 
c4b8B 
c4c® 
c4cB 
c4d® 
c4d8 
c4ed 
c4HeB 
c4f® 
c4f8 
c502 
c588 
c518 
c51B 
c520 
c528 
c538 
c538 
c54o 
c548 
c558 
c558 
c560 


02 ,40,20,c2,20,b9,c2,F0, 
03,4c,03,03,86,fb,20,d2, 
c2,d0,f6,B6,fc,20,fd,ae, 
20,9e,ad,20,a3,b6,85,Fa, 
18,65, fc,cd,48,c1,90,07, 
£0,05,a9,04,4c,a0,c2,a5, 
d6,a6,d3,85,fe,86,ff,a5, 
£fb,18,6d,44,c1,aa,aS,fc, 
18,6d,45,c1,38,20,0c,8eS5, 
a5,fa,20,24,ab,a6,fe,at4, 
FF,20,0c,e5,60,20,b3,c2, 
d®,03,4c,af,c3,20,fd,ae, 
20,9e,b7,e80,10,90,05,a9, 
06,4c,20,c2,86,fa,ae,44, 
c1,20,f0,e39,20,24,ea,ac, 
45,c1,35,fa,931,f3,c8,cc, 
47,c1,90,F8,f0,f6,eB,ec, 
46,c1,90,e5,f0,e3,20,13, 
e5,20,0c,e5,60,20,b3,c2, 
d®,03,4c,af,c3,ae,44,ci, 
20,f0,e9,ac,45,c1,a9,20, 
91,d1,c8,cc,47,c1,90,F8, 
FO,f6,e8,ec,46,c1,90,88, 
F®,e6,4c,3e,c4,20,b3,c2, 
d8,03,4c,af,c3,ae,44,c1, 
20,Fd,e9,20,24,ea,20,6b, 
c3,;78,39,35,85,01,ac,45, 
cl,bl,fb,91,d1,b1,fd,S1, 
£3,c8,cc,47,c1,90,f2,F0, 
f0,39,37,85,01,5B8,ee,44, 
el,ae,44,c1,ec,46,c1,90, 
cf,f®,cd,a6,02,40,73,c5, 
60,20,f0,e9,ac,45,c1,c8, 
a9,40,91,d1,c8,cc,47,c1, 
d0,fFB,60,84,Fb,ae,44,ci, 
e8,20,F0,89,a4,fb,a9,5d, 
91,d1,e8,ec,46,c1,d8,Ff1, 
60,F0,3F,280,b9,c2,86,fb, 
20,d2,c2,86,fc,20,b9,c2, 
e4,fb,f8,05,98,03,4c,F4, 
c4,4c,03,c3,86,fd,20,d2, 
c2,e4,fc,90,F4,fF0,f2,66, 
fe,a2,00,b5,fd,18,7d,44, 
c1,9d,46,c1,b5,fb,18,7d, 
44,c1,9d,44,c1,e8,e0,02, 
d®,e9,28,b3,c2,d8,83,4c, 
af,c3,ae,46,c1,ca,ec,44, 
c1,f0,03,e8,20,bl,c4,ae, 
44,c1,20,b1,c4,ac,47,c1, 
88,cc,45,c1,F®,0a,c8,20, 
c3,c4H,ac,45,c1,20,c3,c4, 
ae,44,c1,20,F0,89,ac,45, 
c1,a9,70,91,d1,ac,47,c1, 
a9,62,91,d1,ae,46,c1,20, 
F0,e3,ac,45,c1,39,6d,31, 


Ecosoft Economy Software AG 
Kaiserstraße 21, D-7890 Waldshut, Tel. 077 51 - 7920 


c568 
' c570 
c578 
c589 
c588 
c538 
c598 
c5a0 
c5a8 
c5b® 
cS5bB 
c5c® 
cS5c8 
c5d® 
c5d8 
c5ed 
c5eB 
c5f® 
c5fB 
c600 
c608 
c618 
c618 
c620 
c628 
c630 
c638 
c640 
c648 
c658 
c658 
c660 
c668 
c678 
c678 
c688 
c688 
c638 
c638 
c6a® 
c6a8 
c6b8 
c6b8 
c6c0 
c6c8 
c6dd 
c6d8 
c6bed 
c6e8 
c6fO 
c6fB 
c708 
c788 
c718 
c718 


Casa Carina, CH-6981 Astano, Tel. 091 - 73 28 13 


Prüf-Software und 


Katalog auf Disketten und 1 Diskette mit 


10 beliebten Programmen DM 10.- 
(Bitte Banknote oder Scheck beilegen.) 


Bitte unbedingt Computermarke und M 


Neu: Fremdsoftware-Emulation auf Ihrem Computer: z.B. MS-DOS 
auf Amiga, Macintosh auf Atari ST, C64 auf Amiga, Apple Il auf 
Macintosh, usw. Aktuelle, detaillierte Info.-Schrift gratis. 


ell angeben. 


di1,a0,47,c1,a9,74,31,d1, 
4c,38,c4,de,3c,c1,f0,F8, 
d®d,0d,ad,49,c1,ae,44,ci, 
85,fc,86,fb,4c,9a3,c5,20, 
b9,c2,f0,03,4c,03,c3,Ba, 
18,6d,44,c1,85,fb,39,01, 
85,fc,a6,fb,20,aa,cS,c6, 
fc,f®,04,e6,fb,d0,f3,4c, 
3e,c4,20,F0,e9,ac,45,c1, 
b1,d1,18,69,80,91,d1,c8, 
c0,47,c1,30,£3,F0,f1,60, 
20,b3,c2,d0,03,4c,af,c3, 
20,79,80,4c,78,c5,20,b3, 
c2,d0,03,4c,aF,c3,20,b9, 
c2,f8,03,40,03,c3,8a,18, 
6d,44,c1,85,fb,20,fd,ae, 
20,98e,b7,88,20,97,c3,f®, 
05,29,07,4c,a0,02,85, fc, 
a5,d3,24,d6,85,Ffd,8B4, fe, 
a6, fb,ac,45,c1,20,0c,85, 
a0,00,a5,Ffc,20,d2,fFf,c8, 
cc,48,c1,d0,f7,a6,fe,a4, 
fd,20,0c,e5,60,208,b3,c2, 
d0,03,4c,af,c3,ad,49,c1, 
c9,02,b0,05,a9,03,4c,a®, 
c2,ae,44,c1,20,F0,e9,a5, 
di1,a4,d2,85,fb,B4,fc,e8, 
20,f0,e9,ac,45,c1,b1,di, 
S1,Ffb,c8,cc,47,c1,90,F6, 
FO,f4,8c,46,c1,90,ed,4c, 
50,c4,20,b3,c2,d®,03,4c, 
af,c3,ad,49,e1,c9,02,b®, 
03,4c,20,c6,ae,46,c1,20, 
f0,e9,35,d1,a4,d2,85,fb, 
84,fc,ca,20,F0,e9,ac,45, 
c1,b1,d1,91,fb,c8,cc,47, 
c1,30,F6,F8,f4,ec,44,c1, 
d®,e8,20,f0,e9,ac,45,c1, 
a9,20,91,d1,c8,cc,47,c1, 
s0,F8,f0,f6,4c,3e,c4,20, 
b3,c2,d0,083,4c,af,c3,ad, 
48,01,c9,28,b90,03,4c,2c, 
c6,ad,49,c1,c9,02,30,F6, 
356,d6,24,d3,86,fe,B4,Ff, 
ae,44,c1,ac,45,c1,20,0c, 
e5,a9,24,85,fb,a9,fb,85, 
bb,a9,00,85,bc,a9,01,85, 
b7,a9,08,85,ba,39,60,85, 
b3,20,d5,F3,a5,ba,20,b4, 
ff,a5,b9,20,36,ff,a9,20, 
85,90,30,03,84,fb,20,a5, 
ff,BS,fc,a4,30,d0,44,20, 
e5S,Fff,a4,90,d0,3d,a4,Fb, 
88,d0,e9,a6,fc,20,cd,bd, 
a9,20,20,d2,FFf,20,a5,fFf, 


Domain-Software Spaß! 
Diskette 1: 


Diskette 2 

Frei-Programme (fast) gratis) || =: 

Stark erweiterte Kollektionen deutscher und englischer Programme: Diskette 5; 
IBM: 1250 Disks, C64: 360 Disks, C 128: 35 Disks (inkl. CP/M), Atari ST: 220 

Disks, Amiga: 160 Disks, Apple Il: 260 Disks, Macintosh: 335 Disks. Diskette 6 

Sonderkollektionen. . .. 

Diskette 12: 


97 c728 
67 c728 
bc c730 
6c c738 
65 c740 
61 c748 
aa c750 
fc c758 
60 c768 
87 c768 
ug c770 
03 c778 
7c c7808 
£d c788 
3c c738 
8d c798 
®c c7a8 
7E c7aB 
af c7b® 
da c7b8 
ce c7c8 
ıF c7c8 
35 c7d® 
08 c7d8 
sa c7e®d 
®c c7e8 
o4 c7f® 
de c7f8 
b3 c800 
66 c808 
a4 c810 
9a c818 
26 c829 
37 cB28 
a0 c830 
07 c838 
ce? c849 
e2 c848 
eb c850 
44 c858B 
70 cB608 
Ec c86B 
v2 cB79 
af c878 
17 c880 
a2 c8B88 
id cB30 
7d cB38 
d2 cBa® 
32 cBa8 
96 c8b® 
bE cBb8 
f6 c8c® 
e6 c8c8 
Sb c8d0 


Hex-dump-Listing zu Pull-Down-BASIC. Das Programm stellt 14 neue BASIC-Befehle zum Editieren von Windows zur Verfügung. 


Deutsche Public Domain-Software 
für Commodore 128, CPC und Joyce 


Professionelle Programme für CP/M aus der Public Domain, komplett angepaßt an Ihren 
Commodore 128, übersetzt und mit gedruckter deutscher Doku: 


a6,90,d0,27,aa,f0,026,20, 
d2,ff,4c,1d,c7,a6,d6,ec, 
46,c1,90,05,20,31,c6,c6, 
d6,26,d6,36,d6,ac,4S,c1, 
20,0c,0e5,a9,00,85,07,a0, 
02,d8,b1,20,42,f6,a6,fe, 
a4,ff,20,0c,e5,60,20,b3, 
c2,d0,03,4c,af,c3,39,00, 
85,fa,20,79,00,f0,1e,20, 
b9,c2,f®,03,4c,03,c3,Ba, 
a6,fa,9d,3c,03,e6,fa,a5S, 
fa,cd,49,c1,90,e4,f®d,e2, 
a9,08,4c,a0,c2,a5,fa,d®, 
05,a9,01,4c,20,c2,a9,00, 
85,02,86,02,bd,3c,03,18, 
6d,44,c1,aa,20,d2,07,20, 
e4,ff,f®,fb,48,20,d5,c7, 
68,c9,11,d0,0d4,e6,02,a5, 
02,c5,fa,90,02,c6,02,4c, 
92,c7,c9,91,d0,0b,c6,02, 
a5,02,10,02,e6,02,4c,92, 
c7,c9,0d,d®,c5,86,02,4c, 
3e,c4H,20,f0,e9,ac,45,c1, 
b1,d1,c9,20,F0,05,18,69, 
80,91,d1,c8,cc,47,c1,90, 
ef,fd,ed,69,20,F9,c2,a5, 
fe,c5,fc,90,05,F0,03,4c, 
£d,c7,40,03,03,a5,Fff,c5, 
£fd,90,£7,F0,F5,60,20,b3, 
c2,d8,83,4c,af,c3,ad,48, 
c1,c9,02,b0,03,4c,2c,c6, 
ae,44,c1,20,F0,e9,ac,45, 
c1,c8,b1,d1,88,91,d1,c8, 
cc,47,c1,90,f4,a9,20,31, 
di1,88,ec,46,c1,90,e4,Ff®, 
e2,4c,3e,c4,20,b3,c2,d0®, 
03,4c,aFf,c3,ad,48,c1,c9, 
02,b0,83,4c,2c,c6,ae,44, 
c1,20,f0,e9,ac,47,c1,88, 
b1,d1,c8,91,d1,88,cc,45, 
c1,d0,f4,a9,20,91,d1,eB, 
ec,46,c1,98,84,f®,e2,H4c, 
3e,c4,a2,00,bd,82,c8,20, 
d2,ff,e8,e0,51,d8,FS,4c, 
eb,c2,33,43,4f,4d,4d,4F, 
44,4f,52,45,20,36,34,20, 
20,20,42,41,53,49,43,20, 
56,32,0d,49,4d,50,52,4F, 
56,45,44,20,42,59,20,50, 
SS,4c,4c,2d,44,4F,57,4e, 
20,42,41,53,49,43,0d,28, 
43,29,20,42,59,20,52,55, 
45,44,49,47,45,52,29,41, 
58,20,49,4e,20,31,39,38, 
37,0d,2d,00,080,08,00,00, 


imentation - so macht Public 


JAT-Pascal - vollständiger Pascal-Compiler mit Strings bis 64 KByte, 
Assembler, Overlays und, und, und .. 

Z80-Assemblerpaket mit Z80-Assembler, Editor, Linker, Debugger und 
intelligentem Disassembler. ’ 
: Künstliche Intelligenz - Interpreter für die KI-Sprachen XLISP und E-PROLOG. 
Compiler Small-C - verarbeitet 
fangreiche Bibliotheken. Mit Bildschirmeditor. 
: Forth-83 - komplette Implementation von Forth mit Assembler, Decompiler, 
Screen-Editor, Kommentar-Screens ... 

" CP/M-Utilities wie Dateikompressor, Diskmonitor. 

Super Adventure Colossal Cave. 


Schließkommazahlen und besitzt um- 


ler E-BASIC - kompatibel zu CBASIC. 


Turbo-Pascal-Programme - INLINE-Converter. 
Disketten 7, 9 und 10 nicht aufgeführt, da nur für Schneider CPC. 
Disketten nur für C128 mit 1570/1571, Bitte Computertyp und Floppy angeben. 


Unser Superpreis: Nur 30,- Mark pro Diskette! Lieferung per Nachnahme oder Vorauskasse. 
Martin Kotulla 


Grabbestraße 9, 8500 Nürnberg 90, Telefon 09111/303333 
Anfragen von Händlern, OEMS und VARs sind stets willkommen! 


©, 


664 LISTING 


JOYSTICKABFRAGE 
PER INTERRUPT 


ine Joystickabfrage in 
BASIC ist bekanntlich zu 
langsam für schnelle Spie- 
le. Die einzige vernünftige 
Lösung ist eine Abfrage des Joystick 
über Interrupt. Mit dem kurzen Pro- 
gramm welches weiter unten abge- 
druckt ist, eröffnet sich diese Möglich- 
keit. Der Joystick bewegt dabei Sprite 
Nummer 0. 
Geschwindigkeit und Bewegungsgren- 
zen des Sprites können frei gewählt 
werden. Die Werte im Sprite-Kolli- 
sionsregister werden ständig abgefragt 
und in der unbenutzten Speicherstelle 
2 abgelegt. 
Gestartet wird die Abfrage mit dem 
Befehl: 
SYS Adresse, Tempo, obere Grenze, 
untere Grenze, linke Grenze, rechte 
Grenze. 
„Adresse“ gibt an, ab welcher Spei- 


< System: C64 
& Art: Utility 
Sprache: Assembler 
 Programmname: 
 Joystickabfrage. 


10 rum *rasunuannunaununnnnunee 


! 11 rem * joystickabfrage und * 


u 12 rem * sprite bewegen . 
F>: 13 rem * ” 
S 14 rem * ulrich Fassbender * 

15 rem * bonnerstrasse 74 = 

16 rem * 5483 bad neuenahr- * 

17 rem * ahrweiler . 
BE 18 rem ® . 
mE 22 ren * . 
= 23 rem * aufruf:sys adresse, *® 

24 rem * tempo, ” 
= 25 rem * oben, . 
= 26 rem * unten, ® 
ab ®7 rem * links, . 
bi 28 rem * rechts . 
h‘ “an... — .—..—.—.—-—.— nn... 


29 rem 


' 48 print "Lelr,down]” tab(9) "49152": 
Ei input "Lupladresse” ;ad 13035 
50 For r-® to 220:read a:x-x+a:if a= 


ki, -1 then arad+58-int ((ad+50)/256) 
Pe} »256 34546 
= 53 if a--2 then a-(ad+50)/256 12033 
R 55 poke ad*+r,a:next 1792 


\ 60 if x><25339 or a><234 then print 
al "fehler im maschinenspracheteil 
e I":stop 315401 


108 data 169,0,133,2,32,155,183,134, 
147,32,155,183,134,251,32,155, 
183, 134,252 37426 


Interruptgesteuerte 


In RUN 11/87 wurde ein 
Spielgenerator vorgestellt. Die 
dazu passende Joystickabfrage 
wird mit der folgenden kleinen 

Routine nachgeliefert. 


cherstelle die Routine implementiert 
ist. Im Demoprogramm ist 49152 vor- 
eingestellt. Diese Adresse kann belie- 
big verändert werden (Der Kassetten- 
puffer ist allerdings’zu klein für diese 
Routine). 


„Tempo“ bestimmt die Geschwindig- 
keit, mit der sich das Sprite bewegen 
soll. Sinnvolle Zahlen liegen zwischen 
l und 7, anderenfalls bewegt sich das 
Sprite zu ruckhaft. 

„obere-, untere-, linke Grenze“ sind 
Zahlen zwischen 0 und 225, je nach- 


101 data 32,155,183,134,253,32,115,0, 
32,138,173,32,247,183,132,254, 
133,18,128 16864 

1902 data 169,-1,141,20,3,169,-2,141, 
21,3,88,96,173,0,220,45,1,220,74, 
176,17,178 237867 

183 data 56,173,1,208,229,147,144,7, 
197,251,144,3,141,1,208,138,74, 
176,17,170 36996 

104 data 24,173,1,208,101,147,176,7, 
197,252,176,3,141,1,208,138,74, 
176,39,178 37271 

105 data 56,173,16,208,41,1,208,16, 
173,0,208,229,147,144,22,197,253, 
144,18,141 16624 

105 data 0,208,176,13,173,0,208,223, 
147,141,0,208,176,3,206,16,208, 
138,74,176 16738 

187 data 46,170,24,173,0,208,101,147, 
144,16,164,10,240,32,197,254,176, 
28,141,8 17376 

1068 data 208,238,16,208,144,20,168, 
173,16,208,41,1,208,4,165,10,208, 
5,152,197 16931 

109 data 254,176,3,140,0,208,138,74, 
165,2,2088,26,176,4,169,3,133,2, 
173,31,208 37852 

110 data 74,144,4,169,2,133,2,173,30, 
208,74,144,4,169,1,133,2,76,49, 
234 16329 

989: 

1808 rem -.€.-—.—.—..— .—....—.. 
18018 rem * demoprogramm * 

TE 19870 rem Hruunananannnenn 

= 1830 : 

= 1848 rem * sprite-daten * 

| 1950 data 8,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,248,656,65,140,66,65,132,66,97, 

. 130,66 16981 
1060 data 97,130,66,81,132,66,81,140, 

66,73,240,66,73,152,66,69,149,66, 


Interruptgesteuerte Joystickabfrage — die ideale Ergänzung zum Spielegenerator aus RUN 11/87. 


Januar/88 
PP ERE-T.0 


dem welcher Bereich des Bildschirmes 
für das Sprite zulässig sein soll. 
„rechte Grenze“ kann eine Zahl zwi- 
schen 0 un 320 annehmen. Die bereits 
erwähnte Speicherstelle enthält folgen- 
de Werte: 

1 — Eine Sprite-Sprite-Kollision hat 
stattgefunden. 

2 — Eine Sprite-Hintergrund-Kolli- 
sion hat sich ereignet. 

3 — Der Feuerknopf wurde gedrückt. 
0 — Keines der oben erwähnten Ereig- 
nisse hat stattgefunden. Für BASIC- 
Programmierer bietet sich eine Pro- 
grammverzweigung mit ON PEEK (2) 
GOTO — wie im Demoprogramm 
Zeile 1500, an. Wird in der Speicher- 
zelle 2 ein anderer Wert als Null abge- 
legt, so bleibt dieser Wert solange er- 
halten, bis er durch POKE 2,0 ge- 
löscht wird. 

(U. Fassbender) 


69,132 37239 
1070 data 66,67,132,66,67,134,126,65, 
0,0,2,90,0,0,0,0,0 34636 
1108 x-B: for r=® to 62:read a:poke 704 
+r ‚a:x=x+a:next 33415 
1118 if x><3869 then print "fehler in 
sprite-datas !":stop 33382 
1158 print "Ccir,cbm 2,7down) run”:v= 
53248 31988 


1208 poke v+32,8:poke v+33,7:poke v+ 
21,3:poke 2048,11:poke 2041,11 


34663 
1250 poke v+29,3:poke v+39,2:poke v+ 
40,0:poke v+16,® 33951 
1260 poke v,188:poke v+1,108:poke v+2, 
e58:poke v+3,100 33134 
1270 : 
1480 sys ad,4,44,235,23,308 11987 
14938. : 
1508 on peek (2) goto 2200,3009,42008 
31927 


1518 print "Chome, 29spaces]”:goto 1508 


= 11519 


193345 
2008 rem * sprite-sprite-kollision *® 
I 28018 print "Chomelsprite-sprite- 
kollisionfSspaces]”:poke 2,8 


= 33048 
= 2020 goto 1500 1579 
8999 : 
3800 rem * sprite-hintergrund-kollisio 
n » 
3818 print "Chomelsprite-hintergrund- 
kollision"”:poke 2,8 13821 
3028 goto 15908 1579 
3999 : 
49208 rem * Fire gedrueckt * 
4818 print "Chomelfire gedrueckt 
C14spaces]"”:poke 2,8 12632 
4920 goto 1588 1579 


6128 LIOTING 


OEKUNDEN STATT MINUTEN 


er schnell einen 
bestimmten Daten- 
satz suchen will, muß 
bei den üblichen Daten- 
verwaltungen eine Menge Geduld ha- 
ben. Suchzeiten von 10 Minuten für 
das Auffinden eines Datensatzes an 
1000.er Stelle in der Datei sind da kei- 
ne Seltenheit. Die langen Suchzeiten 
ergeben sich zum größten Teil daraus, 
daß die Dateien auf der Diskette orga- 
nisiert sind und nur der im Moment 
benötigte Datensatz eingelesen wird. 
Die Alternative — alle Datensätze im 
Rechner zu verwalten — hat ohne 
Zweifel Nachteile. So ergeben sich 
zum einen längere Ladezeiten zum an- 
deren müssen Abstriche im Bedie- 
nungskomfort gemacht werden um 
den knapp bemessenen Speicher nicht 
zu sehr mit dem Programm zu bela- 
sten. Diese Nachteile sind aber bei 
Suchzeiten von 10 Sekunden im Ge- 
gensatz zu 10 Minuten schnell verges- 
sen. So lassen sich mit dem Plattenver- 
waltungsprogramm „Musikregister“ 
bis zu 1200 komplette Datensätze im 
Rechner verwalten. 


Bei dem ersten Start des Programms 
wird ein Verzeichnis angelegt. Dazu 
wird zuerst nach dem Filenamen ge- 
fragt, unter dem die betreffende Datei 
gespeichert werden soll, dann nach der 
Bezeichnung der Datei. Dadurch ist es 
möglich einer Datei eine längere Be- 
zeichnung als nur 16 Zeichen zu geben 
(zum Beispiel: „A—96 B—200 C—666 
D1014*). 

Innerhalb des Programms läßt sich 
ohne Datenverlust zwischen den ein- 
zelnen Menüpunkten hin- und her- 
springen. Jeder Menüpunkt kann mit 
dem Linkspfeil verlassen werden. 


er TER Nahe 


In RUN 6/87 wurde die 
Plattenverwaltung 
„Musikregister‘“ veröffentlicht. 
Hier ist eine Update-Version des 
Programms, die sich durch 
Schnelligkeit und die Fähigkeit 
große Mengen an Daten zu 
verarbeiten, insbesondere für 
die Verwaltung von Mammut- 
Plattensammlungen eignet. 


Eingabe 

Nach der Eingabe von Titel und Inter- 
pret verlangt das Programm bei dem 
ersten Datensatz die Eingabe von Plat- 
tennummer und -seite. Bei allen nach- 
folgenden Eingaben werden Nummer 
und Seite automatisch erhöht. Ist ein 
Datensatz vollständig eingegeben, er- 
scheint der Satz nochmals zur Kon- 
trolle. Bei Bedarf können jetzt noch 
Änderungen vorgenommen werden. 
Soll der Inhalt eines Feldes in den 
nächsten Datensatz übernommen wer- 
den, genügt ein einfaches RETURN. 
Mit SHIFT/SPACE läßt sich das Ein- 
gabefeld zur nächsten Eingabe 1ö- 
schen. Soll alles abgespeichert werden, 
drückt man „!“. 


Suchroutine 

Kurze Suchkriterien beschleunigen die 
Suche. Gesucht wird der Suchbegriff 
im ganzen Feld. Auch mehrere Einga- 
ben sind möglich. Das Programm 
sucht dann nur die Datensätze heraus, 
die die Suchkriterien erfüllen. Joker 
(„*“ oder „?“) dürfen nicht verwendet 
werden. 


Daten ändern oder löschen 

Um einen Datensatz zu löschen oder 
zu ändern benötigt man die laufende 
Nummer des Satzes. Unter dem Punkt 


Löschen ist es zum einen möglich, ei- 
nen Satz völlig zu löschen — der Da- 
tensatz wird beim Abspeichern nicht 
mehr geschrieben — oder nur zu kenn- 
zeichnen. Ein solcher Datensatz bleibt 
erhalten, wird aber bei Suchvorgängen 
nicht berücksichtigt (brauchbar zum 
Beispiel bei verliehenen Platten). 


Ausdrucken 

Grundsätzlich ist dieser Menüpunkt 
mit dem Punkt „Suchen“ identisch. 
Die Ausgabe erfolgt jedoch auf den 
Drucker. 


Verzeichnis eintragen 

Bei einer Änderung des Filenamens 
oder der Bezeichnung muß die Frage 
nach dem Überschreiben mit nein be- 
antwortet werden, da sonst das bereits 
bestehende File gelöscht wird. 


Verzeichnis laden 

Die Aufteilung nach Disk 1/2/3 kann 
geändert werden, je nachdem welche 
Floppy verwendet wird. Bei der Einga- 
be von „O“ kehrt das Programm in die 
gerade bearbeitete Datei zurück. 

(J. Mientjes) oO 


usringpnOBIEME? 


Wenn Probleme beim Abtippen 
der Listings auftreten, können 
Sie jeden Dienstag zwischen 16 
und 18 Uhr einen Mitarbeiter er- 
reichen, der Ihnen weiterhelfen 
kann. 


0 89/ 


Die Rufnummer lautet: 
36 08 62 28 


Januar/88 um 85 


rn 


a mit ur, |, 02 BE 

System: C128/Floppy 

Art: Anwenderprogramm 

Sprache: Basic 

Programmname: Musikregister 
18 rem ---------------- 
20 rem musik-verw 

altungs-programm 

30 rem 
40 rem Euer 79°} 


so 
60 


70 


178 


180 


270 


[4216] 


300 


2808 musikstuecke 
rem 


by james b. mientje 
8043 unterfoehring 


Fast :ma-1208:dim t1S(ma), 
ip$(ma),pt$(ma),ke$(lma):sp-d:se= 
l:ze=1 15587 
scnelr :print chr$ (142):print "v 
erzeichnis-sauswa 
„ 


:print :dopen #2, 
"verzeichnis" 111962 
if ds<>62 goto 140 31415 
dclose :dopen #2, "verzeichnis",w 
12981 
for z=1 to 9:v2$(z)=-"-":vvS{2)*"- 
";print#2,vz5(z2)”, "vvSlz):ınext zZ 
35358 
delose :dopen #2, "verzeichnis" 
12635 
for z=1 to 9:input#2,vz$(z), 
vvS(z) 12392 
if vz8(Cz)<>”"-" then q=g*+l 32159 
if z=1 then print "[12®spaces] 
diskette i 
ernennen. "print 28179 
if z=4 then print ”[1dspaces] 
diskette 2 
.":print 18297 
if z=-7 then print "[10spaces] 
diskette 
Beisianlae sloinieinlnra.ee sine ne nern nenn 
euere +. "sprint 38347 
print "[22spaces]"”z; "[2spaces)- 
C4spaces}”"vv$(z) 12203 
next :dcelose :if q<1 goto 658 
31 


print "C1dspaces) 


Kenner en 


print "[23spaces]®[“4spaces)- 
[6spaces)m e n u e” 110078 
print :print "welche nummer 
wuenschen sie ?":get key z$ 
13949 


if z$<”"®" or z$>"9" then print ” 
C3up]”":goto 220 J2566 
if z$=-"®” then goto 270 31585 


if sp=-1 then t1S5Cx)="tT”:ptScx)- 
pn$:gosub 868 33019 
z=val (z$5):vz$=-v2$(z):scnelre : 
print "C13down, Sspaces3moment 
bitte ![2spacesldas verzeichnis: 
C2spaces,rvs) ";vz$(z);:print " 
C2spaces,off ‚3spacesJwird geladen 
t":gosub B40:za=z 310823 
z=-za:scncir :;print :print :print 
"E[Sspaces)vrerzeichnis: 
L2spaces,rvs] ";vvS(z);:print " 
CoffJ":print :print "C1Bspaces, 
rvs,9spacesJla uswahl 
C9spaces,off]” 17285 
print :print "[18spaces)daten 
eingeben... vr, 0.4, ...1”:print 
:print "[18spaces]daten 
BORHEN Gr U ee ea 


print :print "C[C18spaces)daten 
aurdBeNn.ss sonen ae er e + meine 
:print "[18spacesIdaten 
lBBschen. „cr rer sannnn +” 29388 
print :print "[l8spaces)daten 
ODuckansa ae sa peind 
:print "[18spaces)verzeichnis 
eintragen....:.:...5” 18973 
print :print "[1Bspaces] 
verzeichnis laden......+...+...7": 


410 


420 
4308 


440 
450 


460 
478 


488 


430 
500 


510 
520 


530 
540 
550 


569 
Er4.) 


588 


598 


6908 
618 


620 
630 


1510] 
658 


6608 


print :print "[18spaces,rvs) 
speichernloff] und 
ende..srerrrr+,.Q" 
get key awS:if au$l"1” or aus>"B” 


18779 


then senelr :goto 278 13178 
aw=val (awS):on aw goto 360,370, 
380, 380,370,650,30, 340 J4685 


if sp=-1 then tl$S(Cx)=-"t1":ptScx)“ 

pn$:gosub 868:end 13078. 
end 3128 
gosub 738:goto 278 11139 
senclr :gosub 908:goto 278 113802 


senclr :if aw=3 then gosub 1330: 
goto 498 219608 
scnelr :if aw=4 then gosub 1330: 
goto 410 21770 
print "[rvs,3spacesJlaenderu 
n g[3spaces, off, 18spaces]t 
zureuck mit + )":gosub 1330: 
print tab(208)”"Cdown]suchen der zu 
aendernden lfd.-nr .C4spaces) 
(J/n)”:get key fFr$:goto 428 
310411 


print "[rvs,3spacesJ]loeschu 
n g[l3spaces,off,18spaces]( 
zureuck mit - )":gosub 1330: 
print tab(20)"Cdown]suchen der zu 
loeschenden lfd.-nr .C3spaces] 
CJ/n)":get key fFr$ J10442 


if fr$="j" then gosub 1330:gosub 
900 31944 
if Er$=-"«" then goto 278 J1302 
if aw=3 goto 520 1761 


print tab(28)”CdownJwelche nummer 
soll geloescht werden[2spaces]”; 
:input "[Sspaces,Sleft]";y$:if y$ 
="0" then goto 278 176793 
if yS<chr$ (48) or y$>chr$ (57) 

then print "[C3up]”:goto 450 12820 
y-val (yS):if y>xn then print " 

[3up]J”:goto 458 12656 


print tab(20)"Cdown]soll der 
eintrag geloescht werden 
C3spaces)- l[l2spaces]":print tab( 
208)"Cdownloder nur gekennzeichnet 
werden[6spaces]- k":get key 10$ 
19282 


if lo$="k" then tlScCy)=-"./, "+ 
tlS(y}:goto 389 33315 
if lo$-"1” then print tab(39)” 


Cdown,rvs) sind sie sicher ? 
Coff]":get key l11$:if 11$-"n"” 
then goto 388 15798 
tl15Cy)=-"£ "+tlSCy):goto 388 1981 
print tab(20)"[downJwelche nummer 
soll geaendert werden[2spaces)"; 
:input "[Sspaces,Sleft]";yS:if y$ 
="0" then goto 279 37391 
if yS<chr$ (48) or yS>chr$ (57) 
then print "[3upJ”:goto 520 12788 


y=val (yS):if y>xn then print ” 

[3up]”":goto 520 12591 
gosub 1330:print :goto 570 11393 
scenclr :print :print 1812 


print "[ctri bJodaten-aen 
der un g";:print spct 
20)"eintrag nr.:[2spaces)";y 
15126 


print "C2downltitel[l“4spaces): 
C3spaces]";tl$(y):print "[down] 
interpret :[3spaces]"; ip$Cy):print 
"CdownInr ‚-seite:[3spaces]”; 
pt$(y):print "Cdown]bemerkung: 
[3spaces]";ke$(y) 19871 
print "[8up]":print tab(11);: 
input tl$(y):print :print tab 
11); :input ip$Cy):print :print 
tab(11); :input pt$(Cy):print : 
print tab(11);:input ke$ty) 19942 
print "[2doun,rvsI richtig 


? Coff]”:get key fr$ 12120 
if Fr$S=-"n" goto 568 31248 
if ff=1 then return 1873 


print "[2downJsoll noch eine 
nummer geaendert werden[7spaces] 
(j/n)";:get key FF$:if FFS<>"n" 


then goto 388 17298 
if FfS-"n" goto 270 31198 
senclr :for z=1 to 9:print z, 


vz$(z),vvS(tz):next :print "” 
C2downJwelche nummer wuenschen 
sief3spacesI(abbruch mit 83"; : 
get key z:print z:ifF z=®d goto 7208 

191560 
"dir, 


print :print :input 


eintrag”;vz$S(z):print :input 
"bezeichnung” ;vvS(z):dopen #1, 


6708 


680 


630 
798 
718 


720 


738 


740 


750 


760 


7708 


780 
790 


810 


820 


830 
840 


850 
860 


870 
880 


89308 
9090 


318 


s20 


(vz$(z)),wıif ds<>63 goto 718 

18638 
print :print "dieses verzeichnis 
gibt es bereits":print :dclose : 
print :print "ueberschreiben J/n" 
:get key a$:if q$<>”j"” goto 658 

238237 
scratch (vz$(z)):for zz=1 to 9:if 
vz$(zz)=vzS(z) then vz$(z22)="-": 
vvälzz)="-" 35773 
next zz 3415 
dopen #1, "@"+(vz5(z)),w 31992 
q$=-"T":print#1,q$:dclose :goto 
6598 J2322 
dopen #2, "@verzeichnis",w:Ffor z= 
1 to 9:print#2,vz8(2)”,"vv$(z): 
next :delose :goto 278 15986 
senelr :print vwerzeichn 
i s :[2spaces,ctrl bJ”;vv$(z): 
print tab(62)"Lup)C zurueck mit 
[2spaces]- )":print "[down] 
eintrag-nr.:";x;:print tabt 
S9)"letzte nummer: ";pn$:xn=x: 
gosub 1290 211881 
print tab(23)”"LupJfreier speicher 
:":fre (1);" bytes”:print " 
Cdown] 


-„m.......n.n.n.. ||; 
.. are 
Ban “„.....e":if fre (1)>500 
goto 770 112728 
print tab(26)"C3down,rvs, 3spaces] 
acht un g£l3spaces,off]":print 
:print tab(23)"der speicher ist 
fast voll":print tab(17)”[down, 
rvsles sind nur noch >”;fre (1);" 
Lleft] < bytes Freiloff)"” 110776 
print tab(16)"[Cdownlweitere 
eintragungen in neues 
verzeichnis ":print :print 


15623 

print "Cdown,rvs) titel 
(t=speichern): [off]”;:input 

t1$5:t15Cx)-tl15:if t1$Cx)="«-" then 
goto 270 162208 
if t1S5Cx)=-"t" then pt$cx)=pn$: 
gosub 869:return 23283 
print "Cdown,rvs) interpret: 
Cilspaces,off2”;:input ip$:ip$Cx) 
=ip$:print "Cdown,rvs] nummer- 
seite:[8spaces,off]";:print tabtl 
23)p0$:print tab(22)"Lup]”;:input 
pt$:pt$(x)=pt$ 19736 
print "C[down,rvs) bemerkung: 
Cilspaces,off)";:input ke$:ke$(x) 
-ke$:scnclr :print "[2down] 
eintrag ";x 35100 
print "L2downltitell4spaces]: 
C3spaces]";t1$(x):print "Cdown] 
interpret:[3spaces)”;ip$(x):print 
"CdowniInr ‚-seite:[3spaces)”; 
pt$Cx):print "Cdownlbemerkung: 
[3spaces]";ke$(x) 18936 
print "[2ödoun,rvsI richtig 
C2spaces)? [Coff]”:get key fFr$:if 
frs=-"n" then Ff=1:y=x:gosub 5560: 
£f-® J4612 
pn$=-ptS(x):x=x+l:sp=-l:goto 730 

12601 
dopen #1,(vz$):for xl to ma: 
input#1,t1$(x),ip$(x),pt$cx), 
kestx):if t1$(x)="t" then delose 


ıpn$=ptSCx):xn=x: return 17786 
next x 3386 
scratch (vz$):open 1,8,1,vz$+",s, 


w 32647 
for x=1 to ma:if left$ (t1S(x),1) 
="£” then goto BS® 13147 
print#1,t1$(x)", "ip$cx)"," 
ptSscx)","kescx):if tISCKI-"T" 
then dclose :sp*®: return 15197 
next x 3386 
print "[down,rvs,2spacesld at e 
n - such efl2spaces,off, 
3spaces]im verzeichnis : [ctrl b] 
»-yvSlz):print tab(10)"Cdown] 
ausgabe aller daten - [rvs] * 
Coff ‚3spaces]zurueck zum menue = 
[rvs] + [CoffJ":if auc>5 then 
gosub 1330 312121 
if aw-5 then print "[down,rvs, 
©spaces]ld a t e n[3spaces)w er d 
e n[2spacesla u F[2spacesId en 
[2spacesld r uc ke r[2spaces]a 
usgege b e n[2spaces,off, 
downJ":gosub 1338:se-1 16467 
x35=9:t1$=-"":ip5="":ptS="":kas-""; 
print :input "titel:[l1spaces)”; 


tl$:if tl$<C>”e-" goto 940 16792 1188 
938 return 3142 
948 if aw=5 then open 4,4 J1243 1118 
S58 iF t15="*" then goto 9378 31257 1128 
968 print :input "interpret:[7spaces] aa 
”":ip$:print :input ”"nr.-seite: 
C7spaces])”;pt$:print :input 
"bemerkung: [7spaces]”;ke$ 16958 
9378 print :input "suchen ab nummer:"; 
7 xs:if xst1 then xs=1 33864 
x 988 scnclr :for x=xs to ma:get uaS:if 1138 
"8, q$5<>"«-" then goto 398 33564 
iD 398 if au-3 and tl$Cx)=-"«-" or aw-3 
2 and t1&5(x)="t” then print tabt 
2 2e5)”"kein weiterer eintrag”:for wa 
E -=1 to 500:next :scnelr :print : 1148 
0 print :return 17589 
ı 1088 if aw=4 and tl1$5Cx)=-"-" or aw=4 
and t1$(x)="t” then print tabt 
e5)"kein weiterer eintrag"”:Ffor wa 
-1 to 580:next :scncelr :print : 1158 
print :return 37621 1160 
1018 if t1SCx)=-"T” or t1$5Cx)="-" then 
gosub 1348: print :print tabl 
E5)”"kein weiterer eintrag"”:get 
hä key a$:scenclr :goto 908 27514 
1028 if t1$ goto 1119 Jı226 
| 10830 if t1$-"" goto 1050 31318 
1040 if instr (tl$(x),t15)=-@ goto 1180 1170 
ae2s4 © 
1850 iF ip$-"" goto 1070 11320 g 1180 
| 1060 if instr (ip$(x),ip$)-® goto 1180 \ 
21963 1190 
1078 if pt$="" goto 1989 31358 1208 
1088 if instr (ptS(x),ptS5)-=® goto 1190 
22143 1218 
1898 if kes=-"" goto 1118 21258 


LASER COMPILER 
Erzeugt extrem schnellen und kompakten Code — kompiliert 
Laser Basic und Basic Lightning — kann selbständige Pro- 
gramme erzeugen, die ohne Laser Basic laufen — einfache 
Bedienung — kompilierte Programme können im Turboformat 
gespeichert und geladen werden — vollständiges Demopro 
gramm — Ihre kompilierten Programme unterliegen keinen 
Marketingbeschränkungen 

Natürlich mit deutscher Anleitung 


aut Kassette 49,90 


ER NR, 


Ausführliches Info kann angefordert werden. Händleranfragen erwünscht. 


Ce er2s usrms 


if instr (ke$(x),ke$)-® goto 1138 
31978 
if aw-5 goto 1168 21821 


print "C[rvs] nr.-seite:[loff] " 
pt$Cx);:print tab(SS>"[rvs) lfd. 
nr.: Loff] ”x:print "[rvs)] titel 
[4spaces]:[off] "tl1$(Cx):print "” 
[rvs] interpret:[loff] "ip$(x): 
print "C[rvs) bemerkung:L[Loff] "” 
ke$5(x) 19945 
gosub 1338:get a$:if a$<>"" then 
print tab(20)"[rvs, 2spaces)>>> s 
t o p $<<[2spaces](abbruch mit 
[2spaces]«)[2spaces, off]":gosub 
1338:get key u$ 16548 
if q$S=-chr$ (95) then print tab(l 
25)”’[down,rvs, 2spaceslabbruch der 
suchfunktionl2spaces, off]";:Ffor 
w=1 to 508:next w:scnelr 


:X=xn:ze 
-l:goto 980 16651 
goto 1198 1635 


if ze=1 then print#4:print#4,chr$ 
(14)"verzeichnis:[2spaces)]"; vz$; 
chr$ (20): print#4:print#4, "nr/se 
C4spaceslJinterpret” spc( 
22)"titel” spc(20)"seitel2spaces) 
"se 39623 
gosub 12390: print#4, pt$; ip$;lefts 
(t15(x),38):ze=-ze+1l 13828 
if ze=-61 then se=se+1l:print#4, 
chr$ (12):ze=-1 12738 


next x 3306 
nr=val (Cpn$):gosub 1280:g=-len 


(nr$) 31937 
if mid$ (pn$,g,3)=-" a" then po$= 
nr$+" b” 32955 


a 
BUUMERDASH 


\ 
1 


4 8 verschied. Au 


0 re 


1220 


1238 


1240 


1250 


1260 


1270 


1280 


1298 


13008 


1318 


13208 


1330 


1340 


1358 


ende 


mi 
auf Diskette 59.90 Von vn Action. Dr. Br TÜREN 
H ACE I Cass 29,90 Disk 39,90 Intro To Basic Cass 9,0 
Joysticks Ban DR. a 2 prebesmagg Ben Disk 
nalen der . ‚a55 h sk Ivingsione, | presume! Cass " 
Comp. PRO 5000 („-Schalter)....29,90 emmmgadan Mn... „Cam 2020 ak MM Meh..... Gun 
mourdillo s 9, ega 'ypse ‚ass 
Speedking (u-Schalter) ASTA 29,90 Beam Rider Cass 9,90 Mr. Weems. Cass 25,90 ..Disk 
Bubble Bobdie Cass 25,90 Peter S. Handball Mar...Cass 25,90 
Quickshot Il Turbo (u-Schalter) 25,90 Eur, cm ee 2% Pie as 239 Den 
W Conflicts I Dr. Cass 29,90 ..Disk 39,90 ' 155 is 
Magnum (u Schalter) ee gr 35,90 Death Wish 3 Cass 29,90 RAM-Disk-Pack Cass > Disk 
Deep Strike Cass 29,90 ..Disk 39.90 Red Led Cass 
Eite (deutsch) Cass. 49,90 Revs+ E Cass 29,90 ..Disk 
3 Musketeers Disk 39,90 £vening Star Cass 29.90 „Dick 30:90  fAvar Rak Cass 3.0 = 
u Exoion ass 29,90 Roadrunner s 29.90 ..Disk 
Star-Wars Cass. 25,90 Disk 35,90 yes Cie 28:00 Shanpkal aeg 
Dragon’sLairli Cass. 29,90 Disk 39,90 Fügen Casa 119.00 „.Dik 129,90 Soloman‘s Kay 5 
er ‚as5 Sk > I 0 155 NS 
Nibulus Cass. 25,90 Disk 35,90 u Fromier Cass 35.90 Disk 45.90 Summer Gold Cass 29.90 
Igh 
B24 Cass. 39,90 Disk 49,90 Halywoos Poker Cass 29,0 ‚Disk 39,90 Superhuey Il Cass 29,90 
Rygar Cass. 25,90 Disk 35,90 Ina nes > Alle Preise sind unsere Ladenpreise. 


Bei Versand berechnen wir anteilige Selbstkosten: bei Vorkasse mit Scheck: 
DM 2,50, bei Versand per Nachnahme DM 5,90 je Sendung. 


Denisstraße 45, 8500 Nürnberg 80, Tel. 09 11/288286 


if mid$ (pn$,g,3)=" b" then nr=nr 
+l:gosub 1288: po$S=nr$+" a” 14805 
if mid$ (pn$,g,3)=" aa” then po$= 
nr$s+" ab" 32975 
if mid$ (pn$,g,3)=" ab” then 


gosub 12808: po$S=-nr$+" ba” 33187 


if mid$ Cpn$,g,3)=" ba” then po$= 
nrs5+" bb” 33955 
if mid$ (pn$,g,3)="” bb” then nr= 
nr+1:gosub 1288: po$=nr$+" a” 
34065 
return Jı142 
nrS=str$ (nr):return 31019 


if len (ip$(x))>31 then ip$scx)= 


left$s (ip$(cx),31) 13268 
sp$s= 

And 34983 
for le=-1 to len (pt$(x)):next le: 


pt$-pt$(x)+left$ (sp$,S-len 
(pt$(x))) 34972 
for le=1 to len (ip$(x)):next le: 
ip$=-ipS(x)+left$ (sp$, 33-len 


(ipS(x)) 35414 


BEITIE ran 

ann: San op Zope an ge ":return 
310747 

if aw-5 then print#4,chr$ (12): 


close 4:ze=1 
return 


12076 
Jı142 


des listings 


Das jre FLIGHT Dr zu 
Denen unglautt, Preis Piel un 
Spreimadı - Tavon. 01. Aer Zu60 
45,% 
’ 35,90 .‚Disk 
Superstar ICE Hockey an 5 Dir Er 
He Cass 5.0 een 22 
Train on Du 9 
Tevas Para Genus ed = a 
Met ha Cass 23 Disk 39. 
15 Alpı 
Kenkunons ns es 
ot ine Crown - ne 
Em isch | Cass . DK 39.90 
en Disk » 
ie m 58 
OLes ® 
Fim nation N: 
kan Disk 59,0 
= Disk an 
Disk 9. 
Tre Guid al Teves “ De 
ih Adv. Wr SEN 
en o Cass 9 ou a2 
war Disk 39,90 
Wishbringer 


Worid Class Leaderboard 


Ce ei usrunG 


„ EIN FRDOG: 
HUPFT UM DIE WEITE 


er Spieler muß einen Wenig Tipparbeit — aber viel endigung der Tipparbeit gestartet 
Frosch sicher über ge- Vergnügen: The Frog“ die wird. Die jeweils aktuelle Programm- 
fährliche Straßen und we ee version muß immer abgespeichert wer- 
Flüsse zu seinem Sumpf- Umsetzung von „Frogger für den. 

quartier führen. Dies muß geschafft den 616. (J. Engel) oO 
sein, bevor die knapp bemessene Spiel- 
zeit abläuft. Ist der erste Spielab- 
schnitt geschafft, wird es schon 
schwieriger, den Straßenverkehr sicher 
zu bewältigen. Zudem hat man immer 
weniger Zeit für seine Manöver zur 
Verfügung. Gespielt wird entweder 
mit dem Joystick in Port 2 oder mit 
der Tastatur. In einem eigenen Editor, 
welcher mit der Taste „C“ angewählt 
wird, kann die Tastatursteuerung indi- 


viduell eingestellt werden. Wer hilft dem 
Frosch bei der 
Tipphinweise: gefährlichen 
Beim Eintippen des Programms ist Straßenüber- 
darauf zu achten, daß es nicht vor Be- querung? 
. 107 print chr8 (14S5);chr$ (145); :for 134 for t=1 to 2:print "[2rightI"tis” 
System: C16 t=d to 4 12884 Cright]" chr$ 145) ;t28,chrs 
Art: Spiel 108 if (fu and 2ft)=2tt then print (145); :next :print :print J4341 
r tab(2+t*B)"house" tab(42+t* 136 for t-1 to 3-le:print "Lright]" 

Sprache: Basic/ Assembler B)"Full!” chrs (145); 15460 €38;chr® (1459: :next :print : 

" 189 next :print :print :color 1,7,® print 13187 

Programmname: The Frog J1641 138 For t=1 to 3-le:print "Lright1” 

111 for t=-® to ?:print rn$"[39spaces) t38"Lright]" chr$ (14S);t1$;chr$ 
18 print "Cclr]" tabl215)" the Frog "ens” ":next 33631 & (145); :next 24395 
2 ":;:print tab(133)"reading m- 112 b1$="[C39chbm @J"+en$5+"[cbm EI” 148 print :print :print :print :12= 
E | code...” 34258 34853 le:if le>3 then 12=3 12854 
= 40 poke 51,255:poke 52,55:poke 55, 113 color 1,1:print :print b1$ 11564 142 color 1,8,6:print "[2rightl"”;:for 
f 2e55:poke 56,55:clr :goto 10088 114 color 1,6,4:for t=® to 2:print : t=-1 to l2:print o2$;chr$ (145);” 
14366 print bl$:next :color 1,1:print : E4right]"; :next :print :print 

S® poke 45,104:poke 46,31:clr :pudef print bl$S 14039 154090 
"?":For t=1 to B:kay t,"":next 115 for t=® to 39:poke 4032+t,108: 144 color 1,3,6:print "[Bright]";:For 
goto 9008 233861 poke 30088+t,8:next :print rn$;: t=1 el$;chr$ (145); 

60 le=-1:11=1:li=4:poke 10712,1:poke color 1535,7 34685 [7 159658 
218,0: Fu=-®d:gosub 6008:z22--2:vol 2: 116 print ho$ tab(7);:print using 145 print 23371 
so-l 16268 "HHrss#H”;sc;:print tab(33);:print 146 color 1,4,6:print "C3right)”;:EFor 

108 poke 52,55:poke 51,255: print " using "Hin"; hi; 235213 t=-1 to l2:print "C4right]"c2$s; 
CelrJ";:color 80,6,4:color 1,15,7: 117 print hoS tab(21)li J965 chr$ (145); :next :print :print 
eolor 4,15,7:z2=--2 36209 118 print ho$:if s=® then 2008 31427 15643 

101 rn$=chr$ (18):rf$=chr$ (146):ho$s- 113 if s=® then sco=®d:s=1:goto 1998 148 color ‚1,6,6:print "[4right]”; :For 
chr$ (19):en$=chrS$ (157)+chr$ 12655 t-1 to l2:print c1$;chr$ (145);" 
(148) 34757 129 t1$="Ccbm v,3spaces,chm c,Sleft, [Sright]"”; :next 36125 

102 print rn$" score:800000[2spaces) down,cbm f,3cbm @,cbm dJ”":t2$=" 160 For t=® to 20*rnd (1):sys dec 
frogs: [4spaces]Jhiscore:000008 " Ccbm v,7spaces,chbm c,Sleft,doun, ("2B98”):next 12779 

- ens"9” 34258 cbm £f,7cbm @,cbm d]" 16365 170 goto 308 1560 

183 print rn$” time:";:color 1,8,7: 121 t3$="Cchm v,9spaces,chbm c,l1lleft, 208 print :print :print :print :color 
print "[C3lspaces]":tm-38 24513 down,cbm F,Schm @,cbm d)” 33998 1,7,8 J1825 

184 color 1,9,5 11066 123 c1$*="[rvs , 2spaces, off]$%8L[rvs) 201 print rn$”"[15spacesIc116/c16": 

105 print rn$"[2spaces)<[3chm £)> [6left,down,2chbm @,0ffJ'C)Lrvs, print 319083 
[3spacesj<[3cbm £]>[3spaces]< cbm @,0ff]":c2$=-"OL2chm y,off3%& 202 print "[6right,cbm iJ [cbm i, 
[3chm £)>C3spaces)<t3chm £)> [rvs] [6left wn,offILRRLOFEIG right] [Ccbm u] [right] CCC2right] 
C3spacesI<[L3chm £] "en$”>" 14349 {rvs,cbm @,0ff)" 16928 CClright] [cbm il [right] 

186 for t=® to I:print rn$” [cbm 1, 138 print ho$:print :print :print : [cbm i) Cright] [C2chbm i]" 13932 
Scbm +,2spaces,cbm 1,5cbm +, print :color 1,7,8 32344 284 print "[7right) C2right) Cright 
@spaces,cbm 1,5cbm +,2spaces, 132 print "[right]";:for t=1 to 4-le: [right] [C2cbm u,Zright) [C3right] 
cbm 1,5chm +,2spaces,cbm l, print t3$; "Lright]";chr$ (145)9;: [cbm i,cbm *,right] [cbm u] 

“4cbm +) "en$"[cbm +)”:next 16682 next :print :print 34327 £right] [Ccbm u] "” 14053 
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A I ne ER Re 


+ JE 


417 


420 
4508 


451 
452 
460 
465 


470 


472 


print :print rn$"[llspaces][p] by 
Jens engel” J2919 
print rn$"[13spaceslanno domini 
1987”:print :print :print :color 
1,4,6 349007 
print "[Sspaces]move your Frog 
safely through” 13286 
print :print "[Sspaces]the cars 
and swimming trees to” 23268 
print :print "C3spaces]lyour home. 
but take care: you can" 233321 
print :print "[6spacesleasily 
slip off the trees.” 12268 
print :print "” with:”";:if ct=® 
then print "joystick”;:elise print 
"keyboard”; 15108 
print "[2spaces]change:[c) 
C2spaces]start:space";ho$:poke 
218,8:poke 239,8 234487 
sys dec ("2899”):get a$:for t=® 


to 69:next :if a$=""” then 220: 
else if a$="c" then 240 34152 
if a$t>" ” then 228 31286 
goto 119 1632 
senelr :color 1,8,7:print :print 
" control change: ”" 33377 
print :print ” Joystick or 
keyboard [3j/k] ?" 13285 


get key a$:if a$="j" then gosub 
608:goto 260:else if a$-"k"” then 
et-1:goto 244 234464 
goto 242 3590 
print :print ” enter move-keys. 
use no Function-keys!"” 35044 
bS5="[3spaces)up":p=10412:gosub 
250:b$=" down”:p=10448:gosub 258 
J4122 
b$=" left":p-10420:gosub 250:b$- 
"right":p=10434:gosub 258:s=®: 


goto 268 34995 
print :print b$;” key: " chr$ 
148); 32193 
k-peek (19B8):get a$:if k"-64 then 
252 J1824 
print aß:poke p,k:for t=-® to 208: 
next :return J2164 
print :print "sound editör: song 


on "rn$” y Lright] n ”rf$” 7": 
get key a$ 35557 
if a$<>"y"” and a$<>”n” then 268: 
else print " ”a$:for t-=® to 308: 
next 13868 
ıf aß-"n" then so-d:goto 108 

12076 
so-l:goto 108 29498 
poke 210,20:poke 211,23:poke 213, 
15:poke 212,172:poke 216,1:poke 


218,0:poke 218,08 36394 
color 1,15,7 11963 
sys 10620 3666 
if psek (216)-® then 490 21424 
gosub 508 1568 
tm=tm-.2:poke 3112+tm,32:if tmt7 

then 405 33596 
poke 198,64: for t=® to 4d:next : 

goto 310 32443 
if peek (217)=? then 459 J1498 


sys dec ("2914”):sound 3,298,88: 
for w=® to 208 33051 
For t*® to 2:poke 3972+psek (210) 
+peek (211)*40+t,77.5+rnd (9) 

34140 
poke 3112+peek (218)*+peek (211)* 
40+t,77,5+rnd (B):next :next 

33843 
li=-li-1:iF li=® then print ho$; 
tab(255)” game over ":if sco>hi 
then hi=sco 15628 
if li=-® then s=-®:poke 239,8:for t 
=® to 2800:next :poke 52,4B:goto 
60 


24009 
goto 109 \ 1556 
t=-peek (218):w=® 11957 


if tre+HWu*B or tr3rw*B or t=4rwtB 
then 468 34101 
w=w+l:if w<5 then 451:goto 405 
12276 
for t-508 to 7 step -20:sound 1, 
t,2:next 32431 
Fu=fu or 2tw:sco=-sceo+tm®10ßB:iF Fu 
=31 then 470:else 100 33900 
print hoS tab(259)5"” 
congratulations ” tab({31)” next 


level:";:11=11+1 15336 
print ll;chr$ (20);"” ":poke 239, 
9:Fu=® 232574 


a EA wen u 


473 


474 


476 
500 
so 


se2 
so4 
595 
600 
328 
1000 
10901 
1002 
1003 


1904 


1006 
1018 


1011 


1012 


1913 
1015 
1093 
2000 


2002 


20094 


2005 


2008 


2010 


2012 


eoı4 


edi6 


2018 


2920 


2o22 


2024 


for t=-7 to 953 step 10:sound i1,t, 
@:next :Ffor t=® to 2300:next 
33366 


le-le+l:if le=3 then le=i:poke 

190712,peek (190712)+1 13838 
goto 100 1556 
if so=® then return 1925 


zi-zi+64:if zi<pesk (1025+z2) 
then return 32618 
21-0: zE-z2+2:if z2>76 then zd=-2 
33176 
23-596+peek (1924+z2):if 23-5396 
then return 12951 
sound 2,23+1,peek (1925+z2)/B: 
sound 1,23, peek (1025+z2)/B: 
return 34307 
poke 10412,8:poke 10448,9:poke 
10428,18:poke 10434, 11:ct=®: 


return 34272 


print "[Cclr,wht,, SdownIrunßdChome) 
":poke 1319,13:poke 239,1:stop 
33432 
restore 2108 1568 
‚For t=® to 83:read q:poke 1525+t, 
g:next 13833 
sys 1525:poke 65298,0:poke 65283, 
E1:} 13887 
restore 2298 1572 


for w=1 to 2l:read q:qq9*14336+q* 
8:for t=® to 7:read q:poke gg*+t, 
g:next :next 314737 
restore 2058:for t=-® to 77:read 
g:poke 1023+t,q:next 13234 
restore 2008:for t-=® to 1B:poke 
52,55:poke 51,255:read a$:q=® 
J4645 
for w=® to 3l:a=-dec ( mid$ (a$,1+ 
w*2,2)):poke 18200+t*32+w,a:q=q+ 
a:next 24829 


read a:if a<>q then print "error 
in data line: "2000+t*2:end 
13874 
next 1130 
goto 59 3435 
rem -.—.— €. —.— -—-—.—.—... . .....n....n.n... 
data 


a50318669289902e6048503eseasasasaa 
5038505350418690485066ßeaeasaad, 
3728 16715 
data 
27b185850eb1038590d488b103c992Ff00ac 
8310388b6105c8919058888cdFffdßebc, 
3839 16455 
data S 
a50d91033598910556Beasaeaeasaeaadd 
0b105850eb193858dc8b193c9009F0Ba, 
3801 15853 
data 
889183c8b105889105c8c8c0284d0ebBBa 
5849310335083105650eaeaeaa9c88503, 
4121 J63922 
data 
8908850420e82729£72720482720F7272 
0482720272820482720272820482720, 
82655 17383 
data 
£72720482720F72720482720272820d82 
720272860easaea20542820482720d4B, 
3176 17329 
data 
2720d4827205c2860eaeaeasasaaSc685sf 
aa5fac92bd004c643c64309304008a5, 
4821 1698088 
data 
d2c300F082c6d2a5fac933d00835d2c92 
Sf0B2e6d2aSfac928400a8543c917FD, 
4953 17033 
data 
OHe6d3e6d36deararaerasaeanasasasaa 
30085d4a99c85d5a0008cHd3F00FfaSd4, 
Ss562 16915 
data 
1869289002e64585d4cB4cf228a5d4186 
S5d29002e64585d4560eaeaeaa000a970, 
4546 16995 
data 
91d4a02891d4cBa9F991d4cBa96eI1dHa 
00291d488a9a291d4c6dSc6dSc6EdSc6, 
5499 17205 
data 
d5a0009891d4c8c891d4a02891d4c8BS1d 
4c891d43001a90891d4e56d5e6dSeäßdS, 
5326 16468 
data 
e6d539008Sc660eaa922a000831d4c831d 
4c891d4a02B8aS6491d4c891d4cBS1d4, 
5945 166 


Das Programm darf erst nach dem vollständigen Abtippen gestartet werden. 


Eee Du A 0 Dan ‚tr, oe 


2026 data 


EDeaesaeraeasasasa20a528209602920e882 
820982920142929F529209e294cd329, 
3645 37989 


2028 data 


easasaeseasaad28b1d429aFf2ScEcBbid 
420af23960eaeac9370400160c9644001, 
4970 16103 


60c920d001604ce729eac9e6d005a9028 
5d960390185d96BeaeasasbdaaSdacy, 


2030 data 


4827 
2032 data 


237199 


01d003290085da604c7c23easasaeacss 


ed001560a200886d84cc129ea: 


4488 
2034 data 


Sd3c9, 
16091 


8Sf815C90Sf0811C907F814C90bFf0104c9 
02Beaesasasasaeaadc?2885Ffa4clb2a, 


4268 
2036 data 


35768 


adb42885fa20392820692929014294c902 
80090455700000080000F0F9FBFAFdF, 


1785 


35984 


2050 data 255,143,1800,174,50,143,100, 
174,50,174,150,143,150,174,100, 


174,50,47,108 


17682 


2052 data 143,50,143,150,202,180,0,50, 
143,100,143,50,143,190,208,58, 
174,150 

2054 data 143,150,174,100,174,598,143, 
180,174,50,47,150,47,100,0,50,47, 


100,47,50 


16247 


16785 


2056 data 208, 100,208,50,214,150,174, 
150,202,100,202,50,143,100,214, 


50,202,150 16175 
2958 data 202,100,0,255 J1546 
2100 data 160, ®, 185, ®, 228, 153, ®, 
56, 185, ®, 209, 153, ®, 57, 
185, ® 15316 
2102 data 218, 153, ®, 58, 185, 2, 
211, 153, 8, 59, 185, ®, 212, 
153, ®, 68 15094 
2104 data 185, ®, 213, 153, ®, 61, 
185, ©, 214, 153, ®, 62, 185, 2, 
Bıs, 153 15243 
2106 data 8, 63, 200, 208, 285, 152, 
10, 180, 18, 170, 189,.0, 56, 
157, 1, 56 15284 
2108 data 169, ®, 157, ®, 56,189, 2, 
S6, 41, 31, 157, 2, S6, 208, 
i3233E 15264 
2110 data 208, 227, S6 11549 


2200 data 192, 85,170,85,170,85,178, 
85,178 
2202 data 60, 0,90,0,0,13,58,117,234 


2204 data 
2206 data 


2208 data 
2210 data 


104, 
62, 


36, 
37, 


855,255 


2212 data 


2214 data 
2216 data 


38, 


33, 
40, 


255,8 


2218 data 


2228 data 


15 
76, 


855,0 


2222 data 


2228 data 
23 

2230 data 

2232 data 


2234 data 


126, 
123, 
124, 
108, 
112, 
34, 


110, 


224,128 


2236 data 


2238 data 
240 


ı21, 


77: 


233731 


12479 
0,0,0,0,85,170,85,170 
Ja821 
@,0,0,0,54,168,84,178 
22541 
255,15,0,0,0,0,0,0 Je186 
255,8, 255,255,255,255, 
13366 
255,240,0,0,0,0,0,0 
12040 
0,0,0,0,0,15,255,0 Je244 
255,255, 255,255,255,8, 


13035 
0,0,0,0,0,240,255,0 
22158 
192,192,192,192,192,255, 
12947 
240,1956,144,128,32,16, 
33440 
32,0,16,64,144,128,136, 
13216 
15,19,41,85,42,85,170, 
13248 
170,85,170,85,43,87,43, 
33261 
4,20,14,28,14,15,7,1 
J2685 
195,129,0,102,102,0,32,2 
Jasye 
64,40,112,56, 112,240, 
13343 
54,8,0,4,32,2,16,0 
J2as56 
15,15,7,60,254, 254,228, 
12732 


2240 data 78, 240,242,250,124,126,95, 
31,15 


3031 


ende des listings 
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664 Als 
OPEIGHERDSZILLDOK. 


‚In Oszilloskop Hobby-Elektroniker brauchen zur ge de 
Be Schaltungsentwicklung und Fehlersuche ein a al ae 
wie der Monitor Oszilloskop. Diese Geräte sind leider recht teuer kunden eingestellt werden. 
eines Computers: In der Bild- und für viele Bastler unerschwinglich. Mit dieser Der Meßvorgang startet, 
röhre wird ein Elektronen- Bauanleitung läßt sich der C64 in ein wenn ein Anschluß ein Si- 


strahl horizontal/vertikal nal bekommt oder das zu 
Speicheroszilloskop verwandeln, das i 


Die Länge der Meßzeit kann 


abgelenkt und schreibt da- 
bei einen Leuchtpunkt auf 
die Mattscheibe. Legt man 
an die horizontale Ablenk- 
einheit eine Sägezahnspan- 
nung und an die vertikale 
die zu untersuchende Span- 
nung, so erscheint das Bild 
des Signals auf dem Monitor 
des Oszilloskops. 

Bei sich wiederholenden pe- 
riodischen Vorgängen, wie 
zum Beispiel der Wechsel- 
spannung eines Sinusgenera- 
tors, erhält man die Sinus- 
kurve als scheinbar stehen- 
des Bild. 


Standhafte 
Sinuskurve 


Ganz anders ist es bei nur 
einmal auftretenden Ereig- 
nissen. 

Die Signalform eines 
menschlichen Lautes oder 
die gefürchtete Einschaltstö- 
rung des Kühlschrankes, all 
diese Vorgänge erscheinen 
nur einmal kurz auf dem 
Schirm.Um solche aperiodi- 
schen Ereignisse zu erfassen, 
braucht man ein Speicheros- 
zilloskop. Das Prinzip eines 
Speicheroszilloskops ist 
schnell erklärt: 

Es mißt eine bestimmte Zeit 
lang, speichert dabei in kur- 
zen Abständen die Meßwer- 
te und gibt dann den gesam- 
ten Verlauf auf dem Bild- 
schirm als Graph aus. 
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professionellen Ansprüchen gerecht wird und im 
Selbstbau weniger als 100 Mark kostet. 


Bild 1: Das fertig aufgebaute RUN-Speicheroszilloskop 
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Bild 2: Platinenlayout zur Schaltung im Maßstab 1:1 


CAPS 9. Ray 


untersuchende Signal einen 
bestimmten Wert über- 
schreitet. Beim ersten Fall 
spricht man von externer 
Triggerung, im zweiten Fall 
von interner Triggerung 
(engl. trigger = Auslöser). 
Während der Messung wird 
die anliegende Spannung in 
gleichen zeitlichen Abstän- 
den digitalisiert, sofort ab- 
gespeichert und anschlie- 
ßend in Punkten innerhalb 
eines Koordinatensystems 
dargestellt. Dabei beschreibt 
die waagerechte Achse die 
ablaufende Zeit, die senk- 
rechte Achse die jeweils ge- 
messene Spannung. Verbin- 
det man die Punkte mitein- 
ander, so erhält man einen 
nahezu analogen Verlauf 
des Ausgangssignals. 
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Das RUN-Speicheroszillo- 
skop (Bild 1) kostet im 
Selbstbau etwa 100 Mark, 
da durchweg handelsübliche 
Bauelemente verwendet wer- 
den. Selbst der hochwertige 
A/D-Baustein ist heute für 
weniger als 30 Mark überall 
zu bekommen. Die Platine 
ist recht platzsparend konzi- 
piert — schließlich soll man 
das Oszilloskop in der Hand 
halten können. Deshalb soll- 
ten insbesondere bei den 
Kondensatoren die jeweils 
kleinsten Ausführungen ge- 
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Bild 3: Bestückungsplan für die Platine 
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Bild 4: Schaltplan des Speicheroszilloskops 


wählt werden. Bei den Span- 
nungsreglern handelt es sich 
um 100 mA-Typen im TO 92 
(Kleintransistor) Gehäuse. 
Die drei Trimmer sind 
PIHER Trimmpotentiome- 
ter mit Steckachse in stehen- 
der Ausführung, bei denen 


die Anschlüsse noch etwas 
zurechtzubiegen sind. 


Das Anschlußkabel sollte 
abgeschirmt und nicht zu 
lang (max. 1.50 m) sein, da 
sonst Meß-Störungen auf- 
treten können. 
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Beim Zusammenbau muß 
zuerst die Platine nach dem 
abgebildeten Layout (Bild 2) 
geätzt werden. Nach dem 
Bohren der Platine kann mit 
der Bestückung (Bild 3) be- 
gonnen werden. 

Wer sich die Herstellung 


oder den Aufbau der Platine 
nicht zutraut bzw. dazu 
nicht die nötigen Geräte hat, 
kann sie unbestückt, be- 
stückt oder als fertiges Gerät 
bei der am Schluß angegebe- 
nen Quelle bestellen (Preise 
bitte erfragen). 
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Zum Aufbau werden ein 
Lötkolben mit maximal 
25W (also keinen Gasbren- 
ner benutzen!), Elektronik- 
Lötzinn und ein feiner Sei- 
tenschneider benötigt. 

Zunächst werden die sechs 
Drahtbrücken und die Wi- 
derstände RI-R27 eingelö- 
tet. Bei den Widerständen 
R9-R19 handelt es sich um 
Metallfilmwiderstände mit 
einer Toleranz von 1 Pro- 
zent. Anschließend werden 
die Dioden D1-D12 eingelö- 
tet. Dabei sollte man die 
Dioden D8-D10 nicht ver- 
gessen — sie befinden sich 
unter IC3 und dem Dreh- 
schalter. Nachdem dies alles 
eingelötet ist, geht’s mit den 


geschalteten Computer ein- 
gesteckt werden. Zum Test 
der Schaltung (Bild 4) dient 
folgendes Programm: 

10 REM Speicheroszi Test 

20 PRINT PEEK(56577) 

30 GOTO 20 
Nach dem Programmstart 
erscheint eine Folge von 
Zahlen zwischen 0 und 255 
auf dem Monitor, deren 
Werte sich durch die Poten- 
tiometer Pl (Balance) und 
P2 (Empfindlichkeit) verän- 
dern lassen sollten. Zu- 
nächst werden beide Poten- 
tiometer auf ihren linken 
Anschlag und der Dreh- 
schalter auf den Meßbereich 
0.2 V eingestellt. Dann ver- 
bindet man den DC-Eingang 


Technische Daten 


AC/DC-Kopplung 


Meßbereich pro Rastereinheit (+ 5 Einheiten) 


0.1 Volt 2 
0.2 4 
0.5 10 
1 20 


Zeitbasis pro Rastereinheit (10 Einheiten) 
1,2, 5, 10, 20, 50, 100, 200, 500 Millisekunden 
1,2, 5, 10, 20, 30 Sekunden 
1, 2, 5, 10, 20, 30 Minuten 
1, 2, 5, 10, 24 Stunden 
Maximale Meßzeit daher 10 (!) Tage 
Triggerung Positiv, Pegel: 0.1V — 100V 


IC-Sockeln weiter. Da sich 
eine Diode unter IC3 befin- 
det, muß dieses IC gesockelt 
werden, da sonst die An- 
schlüsse zu kurz sind. Bitte 
auf die Polung der ICs ach- 
ten! Die Reihenfolge der 
restlichen Bauteile ist unkri- 
tisch. Die Platine selbst wird 
über ein l3adriges, abge- 
schirmtes Kabel mit dem 
C64 verbunden. Die Ober- 
seite des Userportsteckers 
sollte markiert werden — er 
darf keinesfalls falsch her- 
um eingesteckt werden. 

Nach sorgfältiger Prüfung 
der Lötarbeiten kann das 
Speicheroszilloskop am aus- 
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mit Testpin TP. Er befindet 
sich auf der Platine gleich 
neben den Spannungsreg- 
lern. Mit dem Spindeltrim- 
mer P4 wird nun der Test- 
wert auf dem Bildschirm auf 
200 eingestellt. Damit ist der 
Abgleich auch schon been- 
det. 


Funktionsprinzip 
des Oszilloskops 


Das ankommende Signal an 
AC/DC wird über den Ein- 
gangsteiler dem Eingangs- 
verstärker zugeführt. Bei 
Anschluß an AC wird eine 
eventuell überlagerte Gleich- 


Are VE 


Stückliste 

Widerstände 
Ri 8K R16 10K 
R2 390 R17 5K 
R3 220 R18 3K 
R4  3,9K R19 2K 
RS: 10% R20 100K 
R6 10k R21 100K 
R7’ IK R22 10K 
R8 10K R23 IK 
R9  6.8K R24 39K 


Ri12 300K 1% R27 4.7K 


R13 100K 1% P1,2 10K (siehe Text) 
100K (siehe Text) 
50K Spindeltrimmer 


R15 30K 1% P4 


1% 
1% 
1% 
19% 


D4..12 1N4148 

LD1 Leuchtdiode gelb 
IC1 ZN 427 

IC2 74 LS 132 

IC3 TL 084 

IC4 78L05 

IC5 79L05 


Sonstiges 


S1 Drehschalter 1x12 Print 
S2 Schalter Ix um 

2 IC-Fassungen 14pol. 

1 IC-Fassung 18pol. 

4 Bananenbuchsen 

1 Userportstecker 


l3adriges, abgeschirmtes Kabel (siehe Text) 


Drehknöpfe nach Bedarf 
Gehäuse 


Kondensatoren 
C1,7,8 1F/ 12V RM 2.5 
c2 4.7F/12V RM 2.5 
C3 2.2nF RM 2.5 
C4..6 220F/16V RMS5 
c9 InF RM 2.5 
c10 100nF/100V RM 7.5 
cl 100nF/40V RM15 
Halbleiter 
TI BC 547 
D1..3 1N4001 


spannung unterdrückt. Die 
Schutzdioden D9 und D10 
sorgen dafür, daß das Gerät 
in jedem Meßbereich auch 
kurzzeitig höhere Spannun- 
gen überlebt. Die Umschal- 
tung erfolgt in Stufen von 
0.1 V bis 50 V, der Wert be- 
zieht sich auf eine Einheit im 
zehnteiligen Meßraster und 
Linksanschlag des Potentio- 
meters P2. 


Zusätzlich kann durch das 
Potentiometer P2 die Emp- 
findlichkeit noch um den 
Faktor 2.5 vergrößert wer- 
den, um eine möglichst bild- 
schirmfüllende Darstellung 
zu ermöglichen. 


Andreas Schulze 
Sini5o, Mikic 


gibt sie an den CIA2 des C64 
weiter. 


Nachdem man bei AUSGE- 
SCHALTETEM Computer 
das Oszilloskop angeschlos- 
sen hat, wird das Programm 
mit LOAD„SPEICHEROS- 
ZI“,8 geladen und gestartet. 
Es erscheint das Titelbild 
mit Menüleiste (Bild 5). Alle 
Einstellungen werden durch 
die invers dargestellten Ein- 
gaben vorgenommen und 
sofort angezeigt. 


Mit <RETURN> wird die 
Messung gestartet (START- 
Modus), mit <SPACE> 
gestoppt (STOP-Modus). 


Patrick Stroelmann 
Christoph Münzer 
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Bild 5: Steuerprogramm mit komfortabler Menü-Auswahl 


Durch das Potentiometer Pl 
läßt sich das Signalbild ver- 
tikal verschieben. 


Mit dem Schalter Si schaltet 
man den Triggerverstärker 
auf externe Triggerung (an 
der Triggerbuchse) oder auf 
interne Triggerung (durch 
das Eingangssignal) um. Der 
Triggerimpuls wird durch 
die LEDLDI angezeigt und 
die Triggerschwelle durch 
das Potentiometer P3 ge- 
wählt. 


Der A/D-Wandler setzt 
schließlich die analogen 
Werte in digitale um und 


Um bei längeren Messungen 
nicht versehentlich die Mes- 
sung vorzeitig abzubrechen, 
ist hier <CONTROL> 
<SPACE> zu drücken. 


Alle weiteren Eingaben kön- 
nen im STOP-Modus vorge- 
nommen werden. 


Mit <Z> und <SHIFT> 
<Z> lassen sich die Meß- 
zeiten pro Einheit zwischen 
1 Millisekunde und 24 Stun- 
den in steigender und fallen- 
der Folge wählen. 


Mit <F> kann man den 
FREILAUF-Modus ein- 


a NT ER N 


und ausschalten. Ist der 
Freilauf eingeschaltet, so 
wird nach jeder Messung so- 
fort ein neuer Meßvorgang 
eingeleitet, und das „alte“ 
Bild gelöscht. Dies verhin- 
dert der Modus Freilauf- 
AUS. Jetzt muß jede Mes- 
sung mit <RETURN> ge- 
startet werden. 


Mit <T> kann man den 
TRIGGER-Modus ein- und 
ausschalten. Bei Trigger- 
EIN erfolgt nach Start 
durch <RETURN> erst 
dann eine Messung, wenn 
ein Triggerimpuls (intern 
oder extern) aufgetreten ist. 


Damit sich bei fehlendem 
Triggerimpuls das Pro- 
gramm nicht „aufhängt“, 
kann man mit <SPACE> 
jederzeit wieder in den Ein- 
gabemodus STOP gelangen. 


<L> wie Linie verbindet 
die Meßpunkte miteinander. 


<M> wie Maßstab legt ein 
Meßraster über das Bild. 


<D> wie Drucker gibt eine 
Hardcopy auf den Druckern 
MPS 801/803 oder kompati- 
blen aus. 


Mit der Messung und Dar- 
stellung von Signalen sind 
die Möglichkeiten der Hard- 
ware noch längst nicht aus- 
geschöpft. Das Gerät eignet 
sich vorzüglich zum Digitali- 
sieren, daß heißt zum Auf- 
nehmen und Speichern von 
Klängen, Worten und sogar 
ganzen Sätzen. 


Auf der RUN-O-Thek-Dis- 
kette zu dieser Ausgabe be- 
findet sich ein Beispiel für 
die Anwendung als Sound- 
sampler. 


In den folgenden Seiten wird 
gezeigt, wie man die Schal- 
tung als Sound-Sampler/Di- 
gitizer einsetzen kann. 


Bezugsquelle und Autor: 
Andreas Schulze, 
Sackmannstr. 30, 

3000 Hannover 91, 

Tel.: 05 11/2 110350 » 


C64/C128 
Zubehör 


Druckerinterface 
100% kompatibel. Paßt 


ker. Zigtausendfach be- 
währt. Die "Nummer 
Sicher“ der Interfaces 
#92000G, 98 DM 


Super-Interface 
128K Buffer, Clear, 


Pufferspeicher 

Wie ein Kabel zwischen 
Computer und Drucker 
gesteckt. Vermeidet die 
lästigen Wartezeiten. 
#99064, 64K, 148 DM 


Lowcost V.24 
Für Userport. Zusätz- 
lich benötigen Sie einen 


Intelligente V.24 
Eigener uP, bis 38400 
Baud, Auto-Handshake, 
eigene 64K RAM, ein- 
fach von BASIC anzu- 


Ein C128 ohne Sound- | 
box ist wie ein Fernse- |” 
her ohne Ton. Einfach 


Nicht-08/15 
PC-Zubehör 


Bufferkabel für PC 
In Sekunden gegen Ihr 
jetziges Druckerkabel 


Daten mitnehmen 
Laden Sie Ihre Texte 
einfach in diese Box, 
nehmen sie mit ins 

Büro und drucken dort. 
#22032b, par., 298 DM 
#88032b,V.24, S98DM 


V.24 für Monitor 

Ohne Computer. Eigen 

ständiges Video-Inter- 

face verschafft j 

üblichen Monitor V.24- 

Eingang. Grafikfähig. 

#81064, 348 DM 

"j"-Artikelnummer = Steckerfertig für 
IBM-PC und kompatible inkl. aller Kabel! 
In der C-Version auch für andere Rechner. 


Ladengeschäft: Mo-Fr. 9-17h 


Wir suchen noch mehr geniale Mitarbeiter 
für Technik und Entwicklung. 
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63,1a,19,e5,a7,4d,c2,12, 


1571 
1579 
1581 
1589 
1551 
1599 
15a1 
15839 
15b1 
15b9 
15c1 
15c9 
15d1 
1549 
15el 
15e3 
15F1 
15F9 
1501 
1609 
1611 
1619 
1621 
1629 
16531 
1639 
1641 
1649 
1651 
1659 
1661 
1569 
1671 
1679 
1681 
1689 
15691 
1699 
1631 
1639 
16b1 
16b9 
16c1 
16c9 
16d1 
1649 
l15el 
16e3 
16F1 
16F9 
1701 
1703 
1711 
1719 
1721 
1729 
1731 
1739 
1741 
1749 
1751 
1759 
1761 
1769 
1771 
1779 
1781 
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17c1 
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17d1 
17d9 
17ei 
17e3 
17E1 
17£9 
1801 
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59,bd,d8,96,04,4d,6d,0®, 
60,Fa,33,89,?d,5a,4c,95, 
a3,c8B,35,a4,7a,d6,94,06, 
39,c7,43,6b,c6,13,44,24, 
30,57,f0,e2,05,16,ce,®1, 
85,94,38,c1,88,8c,14,6f, 
Fc,78,f1l,fe,20,30,96,db, 
d5,23,30,06,61,6a,cc,49, 
92,dd,80,08,3e,f4,d7,4b, 
a4,13,70,23,37,48,5d,ed, 
86,22,11,36,5c,5b,2d,86, 
ca,18,35,c4,41,44,d6,84, 
94,04,30,51,52,d2,13,63, 
22,41,07,0c,01,5c,28,1?2, 
07,e4,50,b8,88,80,58,e4, 
50,27,92,80,81,5e,db,18, 
15,cb,8c,22,0c,ca,6f,2a, 
18,63,10,eb,27,99,95,40, 
Be,8d,54,46,84,27,d9,a0, 
£f4,5a,fb,a4,3a,cb,69,3e, 
al,21,47,4d,3d,4a,59,40, 
99,ec,50,41,28,40,b9,c6, 
10,3b,eb,f0,24,96,41,02, 
7b,e8,40,91,06,5c,78,F2, 
92,88,85,9,97,54,Fb,d2, 
0a2,09,c1,fd,fb,f4,ab,80, 
S8,ae,17,0e,30,63,81,1b, 
25,c4,0d,69,72,d8,69,f6, 
67,80,05,87,0c,a9,65,6b, 
11,0e,43,23,F6,04,44,1b, 
1b,00,31,01,c9,0F,36,32, 
34,8e,62,bd,19,db,50,63, 
b8,e8,24,12,09,4F,1d,80, 
d8,50,c1,58,21,10,88,45, 
3c,7c,e5,05,8c,83,b8,01, 
88,08,90,61,7e,84,4a,a®, 
41,13,0c,50,d0,e2,0b,0b, 
bd,Ff1,83,2c,a2,9d,59,0c, 
f2,c2,aa,ac,Bd,19,46,df, 
96,33,02,06,17,49,81,05, 
40,06,17,70,2c,7d,08,28, 
23,40,c3,ee,85,87,68,c2, 
72,03,0b,db,c4,10,2b,43, 
4b,50,bb,af,a0,46,08,3F, 
2F,4b,48,20,5c,44,0d,20, 
c6,9c,37,7a,e2,32,34,68, 
cc,32,65,Be,0a,09,78,d3, 
02,44,b3,47,64,b8,a1,18, 
70,00,25,58,56,94,c3,6f, 
S6,c1,9d,af,97,28,eB,e5, 
d7,64,a4,93,47,46,29,10, 
4e,49,8b,05,b2,5d,42,c6, 
17,71,08,c4,00,0c,08,94, 
8a,4c,46,bf,11,65,2e,86, 
ea,58,55,65,8c,10,74,57, 
54,45,89,30,53,73,04;33, 
58,aa,53,84,29,65,0c,15, 
00,15,de,al,a3,75,a3,62, 
al,52,9a,e4,c9,92,87,42, 
b0,61,16,21,18,29,ec,61, 
10,88,18,cc,08,18,66,e4, 
0a,F0,81,b9,04,85,00,13, 
47,11,01,83,04,12,15;35, 
14,40,60,da,14,51,63,6b, 
03,06,2d,20,c1,Bf,aa,30, 
63,23,35,52,09,1a,64,bB, 
60,£1,d5,19,60,89,44,af, 
35,47,8c,e7,74,36,02,ba, 
47,62,35,20,39,24,9a,32, 
c4,15,02,47,73,59,60,83; 
11,da,a9,04,9a,F5,46,95, 
S5S2,4Me,1d,51,d1,9d,bb,69, 
dS5S,1d,el,17,b1,04,33,36, 
d2,62,84,31,2F,8d,5e,b6, 
a0,c1,64,82,2d,42,5c,6a, 
0c,41,c6,ac,63,2b,c8,10, 
41,6b,8c,29,a4,2f,81,34, 
66,b1,ed,72,18,29,71,2e, 
45,86,5c,be,1a,a3,a5,21, 
51,4b,8b,d®,44,be,16,bf, 
41,0c,40,23,7d,04,d1,01, 
88,d1,a0,48,a2,c4,6b,d6, 
b4,0d,69,54,93,2d,93,8e, 
09,09e,5e,3d,30,c5,05,6a, 
b5,59,96,03,3c,4f,80,b®, 
e0,82,82,c3,5e,bd,6c,b4, 
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1821 

1829 
1831 

1839 
1841 

1843 
1851 

1859 
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1869 
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19c1 
1941 
1949 
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la41 
1a49 
1a51 
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E 1a61 
1363 
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1a79 
1381 
1a89 
1391 
l1a99 
laal 
laaS9 
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lab9 


76,18,1c,37,8F,74,79,e®, 
07,80,d6,04,38,70,e4,12, 
46,da,35,18,16,de,b9,40, 
bb,Sa,f7,2c,44,la,e8,f9, 
ab,03,da,93,71,62,34,06, 
14,51574,57,05,04,598,13; 
£d,06,94,25,78,22,18,13, 
b8,c2,cd,1c,0b,c6,9b,75, 
63,95,16,08,42,40,89,05, 
6b,37,3d,69,b1,bb,53,47, 
2Be,3f,ca,65,05,4e,39d,6c, 
57’,21,2e,29,c6,37,4e,98, 
c1,4d,10,88,47,53,5c,0c, 
88,e4,72,19,1c,Be,8c,c1, 
cd,54,27,b3,92,20,44,2Ff, 
01,68,21,b5,78,fd,ca,®c, 
13,82,c0,48,cb,02,c0,62, 
E3,26,06,81,12524, 48, BT, 
c2,46,ca,2c,6d,2c,63,18, 
dc,86,b69,c3,44,40,bO,1d, 
6c,44,53,4b,89,35,2a,45, 
Be,cf,4e,9d,33,2c,76,49, 
63,b5,66,22,07,0c,399,74, 
0c,39,8e,be,81,b8,1a,8b, 
58,57,83;5e,cC,5a,41,2#; 
38,b1,82,84,60,62,d2,0a, 
dS,36,02d,88,91,75,16,30, 
54,8c,24,53,4d,69,25,45, 
8c,8c,ed,d9,bc,Bb,1e,b3, 
05,47,60,20,db,8b,18,3c, 
Se,38,11,86,d3,34,cd, 35, 
38,b3,18,24,22,11,61,16, 
36,25,33,73,24,48,Fd,bb, 
S8,ec,ca,47,84,08,82,d1, 
45,46,44,b0,bd,06,56,28, 
58,d9,F9,1l1e,al,51,6a,cB, 
94,93,6c,d5,e1,02,20,07, 
08,d1,02,3F,5a,db,a7,75, 
82,41,17,45,4a,36,c1,62, 
72,49,00:89,57,21,F2;,45, 
52,87,8b,de,bd,30,e1,81, 
64,25,29,0d4,a0,56,c5,60, 
B5,15,6d,ae,70,63,ca,®6, 
62,47,b6,06,08,d8,7a,fd, 
42,b93,af ,4e,97,29,8c,00, 
00,84,93,ea,1a,52,df,la, 
e0,93,25,29,aF,5e,b0,55, 
62,d3,4e,c3,2a,b3,65,33, 
ad,Of,8d,d8,3d,5a,29,a6, 
b8,F5,58,96,2c,£5,73,b2, 
a7,32,85,d7,42,bB,ed,ib, 
47,b9,a4,da,B5,72,28,9d, 
93,38,7c,£4,5c,77,1d,8b, 
80,81,36,70,85,65,5a,c5, 
9b,16,e3,9d,80,62,6a4,37, 
0c,53,84,ec,05,43,b5,88, 
S4,d1,d8,04,c6,86,08,e7, 
bB,e9,e0,68,68,ee,bd,8B2, 
55,d9,57,b9,20,2e,9e,f6, 
0b,77,5b,03,37,5d,63,c1, 
3Je,ef,5a,b8,02,d0,b7,3S8, 
01,32,23,63,71,34,4c,01, 
ba,e7,55,65,50,ae,cl,®Be, 
86,7d,ec,ed,9F,01,64,ca, 
4d,64,98,3a,b3,e7,ad,d8, 
3a,ac,cd,76,8d4,13,3a,c2, 
2e,c£,79,£6,51,33,52,28, 
7d,ec,4c,e3,09,55,23,64, 
73,d5,cb,76,12,a9,c1,8Be, 
Ba,B8f ,6be,6a,2e,21,22,d2, 
5a,66,a2,e1,45,0d,83,e6, 
a2,d7,c5,0d,85,0e,6a,3d, 
e8,c5S,a4,Ba,cd,45,b1,b9, 
16,95,cb,c5,3f,d4,2a,3d, 
83,ab,5f,Be,f6,29,45,47, 
76,34,7b,9b,c6,94,54,7a, 
3a,2d,70,de,86,76,6a,aa, 
29,20,43,b5S,£f4,51,49,82, 
33,88,e7,55,51,07,d9,16, 
44,54,82,be,a2,2a,40,91, 
05,d4,73,93,5b,0b,a9,b7, 
Sc,f9,b7,5b,29,ad,d6,44, 
S4,db,ae,84,db,ae,8c,d9, 
38,37,35,40,7e8,36,21,89, 
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lacı 
lac9 
ladl 
1ad9 
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1b71 
1679 
1b81 
1b83 
1bS1 

1b99 
ibal 
1ba3 
lbbi 
1bb9 
lbel 
1bce9 
1bd1 

1bdS 
lbel 

l1be3 
ibfl 
1bfS 
1c01 
1c09 
1c11 
1c19 
1c21l 
1c29 
1c31 
1039 
1c41 
1c49 
1c51 
1c53 
1c61 
1c69 
1c71 
1.79 
1c81 
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1c39 
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1ca3 
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1d09 
1d11 

1dı19 
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1d31 

1439 
1d41 

1d49 
1dSı 
1459 


57561797, 4%W, UB, 9a, 441655 
e8,78,75,12,a6,c1,02,a4, 
ca,f4,2f,36,d9,d9,99,4d, 
27,76,6d,27,65,4£,79,76, 
S5,2e,86,b7,73,2b,0c,48, 
bb,28,cb,cf ,‚4a,57,4e,02, 
be,86,56,24,e5,34,390,2b, 
ae,2f,36,d2,70,05,54,de, 
a6,08,34,02,99,4e,45,50, 
13,26,51,10,d4,98,60,34, 
92,2e,bb, 72,2e,b9,52,2e, 
ad,64,5d,77,24,1d,6e,e2, 
c8B,ba,e93,48,ba,c3,c8,ba, 
d3,c8,92,ce,39,d5,51,76, 
4d,3F,92,df,db,ae,b2,22, 
80,15,F5,11,40,04,cb,9d, 
55,1e,d8,55,ba,d5,c3,ba, 
ca,c3,ba,d6,43,47,fS5S,ab, 
75,d7,87,75,b8,87,75,c8, 
86,83,68,ee,e2,49,23,d8B, 
Ya,ac,de,6b,a8,95,9a,12, 
@2d,d8,09,24,eb,17,56,ec, 
d4,92,75,27,56,ec, 34,82, 
76,35,5b,b2,12,5c,92,d®, 
58,20,57,95,ec,29,1d,00, 
53,1d,3e,15,34,F6,8b,29, 
88,c2,ca,18,2c,e7,9a,a8, 
b4,eb,69,8f ,e5,bc,d9,b3, 
33,7e8,40,9d4,22,06,9c,56, 
a5,16,c4,bc,cd,b1,d0,78, 
e4,e0,06,76,52,88,a2,de, 
b4,ce,30,95,65,6d,ae,33, 
ec,ff,c9,f2,a1,d8,Ff0,81, 
a7,b2,54,08,89,d4,Fd,Sf, 
36,e7,F1,Ff2,06,75,38,81, 
a7,51,89,al,2F,56,e8,89, 
df,28,16,9f,63,52,8b,b3, 
9a,f3,6F,25,23,06,9c,10, 
1a,70,4d,69,c1,8d,a7,45, 
c3,b6,16,04,50,04,Ba,69, 
ec,84,34,96,c1,40,fc,43, 
Se,28,23,2b,63,98,13,41, 
08,03,50,40,85,43,74,00, 
d8,0c,88,d1,60,46,1e,f6, 
09,9b,6e,c0,f3,26,d2,2b, 
d8,19,94,3b,07,55,41,48B, 
b2,2d,Fb,45,40,9a,35,a6, 
cB,a8,0c,ae,81,7d,10,9F, 
68,5c,66,85,c8,31,6f,2b, 
16,e1,8e,06,2b,dc ,4d,23, 
17,2d,ad,fd,92,c2,c8,10, 
d1,05,b9,fd,19,c7,3a,ac, 
FS,3e,25,9b,4a,26,7a,Ff4, 
05,65,65,00,a2,cf,6d,51, 
ec,25,5a,e5,fc,c9,eB,cd, 
13,bFf,d0,d8,21,14,22,0c, 
FfF,e8,bb,ce,a3,2c,a7,65, 
25,20,09,70,20,ae,dS,2f, 
e4,9Ff,49,e2ee2,24,92,a0,F2, 
dS,ab,6d,at4,bc,se,56,e2, 
49,23,c2,92,59,8c,ei1,d5, 
11,8a7,06,73,b5,57,11,el, 
7c,ab,b6,93,e7,23,£8,a4, 
be,1la,7b,d2,8b,bc,90,65, 
a4,b2,c7,6b,e8,c9,61,bc, 
82730773,6c,91;33505,33, 
F2,d4,a4,Fb,1e,93,Ff9,6a, 
69,62,43,26,76,c2,6d,2c, 
ec,f8,e5,24,d3,78,66,61, 
4e,26,c6,d2,1e,60,d9,9F, 
92,1b,fc,00,d0,ed,e4,8b, 
c2,62,33,68,10,9c,33,5}, 
83,3c,32,7c,b8,4c,c4,e3, 
d3,27,3a,62,5f,53,96,a®, 
36,05,fd,32,33,f4,c4,d®, 
53,97,62,98,16,54,c8,d4, 
d3,12,aa,9c,b7,53,98,18, 
9a,64,a9,4c,40,05,39,6c, 
9d,30,23,29,91,aa,a6,24, 
25,39,6c,15,30,26,29,91, 
c6,36,26,86,9c,bf,54,c®, 
8d,a1,79,ee,92,00,01,2a, 
04,e8,73,dd,4f,5c,4e,83, 
3d,d5,cd,c9,4e,e?,7a,e3, 
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1d61 
1d69 
1471 
1479 
1d81 
1489 
1d31 
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b7,75,21,71,58,b9,b3,3d, 
30,af,4f,5c,9e,ab,fc,97, 
£f0,04,bb,c9,13,37,70,50, 
al,dc,31,3b,b1,eb,39b,B8, 
08,16,12,19,88,ad,ce,cH, 
a1,72,66,93,.47,2f,21,87, 
85,17,64,77,b0,49,4e,67, 
af,43,c1,a2,ca,b0,93,6f, 
e4,85,41,80,13,59,48,51, 
48,8b,bc,b0,c1,06,ca,0f, 
63,54,17,F3,44,4a,8d,le, 
83,da, 76,a3a,e2,95,07,bS, 
c1,62,b4,a5,60,73,01,df, 
57,09,0C,79,63,fd,7d,2b, 
a5,04,cc,1e8,b8,fc,15,15, 
£3,6e,01,cc,65,f0,48,ba, 
e4,72,bb,44,0£f,5d,1c,1ib, 
2e,dd,da,35,80,94,39,b6, 
e3,32,92,48,c5,64,d0,17, 
18,c9,8d,68,d2,ac,c4,de, 
00,4c,c3,d5,8c,66,9a,d6, 
c1,36,76,ab,6F,30,38,0c, 
7b,35,85,87,5b, ed,64,53, 
68,64,16,16,cd,19,79,d3, 
c0,0F,32,19,34,67,b5,be, 
45,92 ,46,2f,Ff5,fhb,2F,7c, 
48,97,ba,ae,48,ad,a7,56, 
32,53,49,03,63,19,ed,cc, 
8b,53,35,bb,b6,f2,33, 97, 
1F,8d,c7,ef,88,f5,6e,d9, 
4d,24,8b,aa,dd,bi,1a,fs, 
#r5,45,31,a8,5c,19,20,23, 
27,ce,38,8c,c0,19,8d,7e, 
0b,73,19,7b,cd,36,0d,c7, 
Sc,8f ,06,94,52,64,67,5c, 
9e,4a,68,11,51,30,a6,6F, 
41,29,d3,84,13,44,d1,33, 
69,d6,eb,6c,c4,7b,33,£®, 
ac,da,77,26,d9,8c,7a,73, 
e4,89,49,b6,3e,63,1F,d7, 
7F,cb,53,18,cc,07,9a,Bf, 
98,8F,95,d5,8F ,‚4d,b1,93, 
18,fe,aß,f4,da,9e,62,3e, 
48,902,62,cd,87,22,16,64, 
04,ee,36,e2,ee,d5,bd,“4e, 
a8,4b,77,4b,a2,79,7b,ca, 
02,03,53,b8,20,06,10,03, 
08,0c,00,76,04,30,01,e8, 
96,10,12,58,0c,09,7d,b3, 
a2,44,03,00,6c,80,0c,01, 
b2,00,30,06,c8,00,c0,ed, 
db,c8,34,cb,92,01,b5,c9, 
50,32,5Ff,99,03,5c,98,®e, 
3a,a4,3c,38,86,94,21,7d, 
08,91,60,75,3e,84,10,74, 
01,21,F4,22,d0,04,87,d®, 
89,63,40,01,Ff2,61,c5,a0, 
03,0F,81,16,80,24,3e,84, 
S5a,00,90,fa,11,25,10,00, 
48,3b,c2,40,Ffb,02,43,e8, 
44,31,21,b2,37,cc,6b,7d, 
09,94,40,30,6d4,13,15,9e, 
S2,14,24,74,19,56,56,15, 
SB,b1,4f,24,83,01,59,49, 
£93,32,6c,ac,1c,94,06,9Ff, 
35,e0,77,02,ce,S5a,fc,16, 
1a,53,02,08,3b,81,3d,cc, 
0c,32,fc,11,28,a5,80,9e, 
40,39,c1,67,49,80,92,di1, 
28,0e,91,21,82,82,18,42, 
8c,86,41,b0,8c,72,00,00, 
bS,86,db,30,37,42,13,56, 
c3,b0,fa,d0,84,00,06,bc, 
69,58,16,26,78,00,ei,ba, 
0a,55,be,28,b6,41,6b,dc, 
83,c3,60,c1,36,cd,3b,“c, 
72,17,63,33,23,7F,b8,3b, 
c0,c2,19,22,ce,04,88,55, 
22,51,01,92,e6,11,67,02, 
86,5e,89,40,45,92,18,2B, 
27;939,706774735,98,17;,9@4; 
6b,64,48,00,00,00,00,00, 


immt man 
gesprochene 
Worte, Musik 
oder Geräusche 
mit einem Mikrofon (Bild 1) 
auf, so werden die Schall- 
schwingungen in elektrische 
Schwingungen umgewan- 
delt. Diese elektrischen Si- 
gnale können mit Hilfe eines 
Oszilloskops sichtbar ge- 
macht werden. Bild 2 zeigt 
den Schwingungs-Verlauf 
des Lautes „a“. 

Die komplizierte Schwin- 
gung verläuft kontinuierlich 
und ohne Stufen, das heißt, 
sie erreicht fast jeden Wert 
auf der senkrechten Achse. 
Man spricht hier von einer 
analogen Größe. 

Zum Speichern von Schwin- 
gungen im Computer, müs- 
sen die Signalwerte in eine 
bestimmte Anzahl von Stu- 
fen unterteilt und digitali- 
siert werden. Je feiner die 
Unterteilung ist, um so bes- 
ser gleicht der digitale Ver- 
lauf dem ursprünglichen 
analogen. Ein CD-Spieler 
zum Beispiel arbeitet mit ei- 
nem 14-Bit-Analog-Digital- 
wandler. Diese Bausteine ar- 
beiten mit 2 hoch 14 = 
16384 Stufen und geben das 
Original fast natürlich wie- 
der. Leider ist dieses Verfah- 
ren nicht direkt auf einen 
Computer wie den C64 
übertragbar. Zum einen sind 
die 14-Bit-Wandlerchips 
sehr teuer und zum andern 
wäre der Speicher des Rech- 
ners in weniger als einer Se- 
kunde gefüllt, wenn er den 
Sound wie ein CD-Gerät 
speichern soll. 


Glücklicherweise braucht 


664 Ald 
oDUNDSAMPIER 


Das Speicheroszilloskop läßt sich mit dieser 
zusätzlichen Hardware und Software als Sound- 
Sampler/Digitizer einsetzten. Der C64 wird zur 

professionellen Musik-Maschine. 


Bild 1: Mikrofonzusatz für das Speicheroszilloskop 


Schwingung 


Va: 


Bild 2: Schwingungsverlauf des Lautes „a“ 


Zeit 


Schwingung 


Zeit 
Bild 3: „a“-Laut bei 4-Bit-Wandlung mit 16 Stufen 
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man keine so feine Untertei- 
lung. Selbst bei einer 4-Bit- 
Wandlung mit 16 Stufen 
klingt das Ergebnis recht or- 
dentlich, auch wenn Bild 3 
dies nicht vermuten läßt. 
Doch wie soll es klingen, 
wenn der Sound bisher nur 
im Rechner gespeichert ist? 
Ganz einfach — Dank des 
im C64 eingebauten Sound- 
chips SID. Dem haben die 
Konstrukteure einst durch 
das Lautstärkeregister einen 
4-Bit-Digital-Analog-Wand- 
ler eingepflanzt. Damit läßt 
sich der digitale Verlauf wie- 
der in quasianaloge Schwin- 
gungen umsetzen, die vom 
Lautsprecher als hörbare 
Töne wiedergegeben wer- 
den. 

Damit dieses Verfahren 
funktioniert, muß noch fest- 
gelegt werden, wieviele Wer- 
te in der Sekunde umgewan- 
delt werden sollen. Man 
nennt diese Zahl Sampling- 
Rate. Je mehr Umsetzungen 
stattfinden, um so genauer 
kann das Original als digita- 
le Werte gespeichert werden. 
Leider ist es hier so wie bei 
der maximalen Bit-Zahl der 
Wandlung. Bei einer zu gro- 
ßen Sampling-Rate wird der 
Speicher schnell vollge- 
schrieben, und der Compu- 
ter kann nur kurze Sounds 
speichern. Deshalb muß 
man hier einen Kompromiß 
zwischen Güte und Länge 
der Aufnahme schließen. 

In der Praxis hat sich der 
Wert von ca. 10 000 Wand- 
lungen pro Sekunde be- 
währt. Dies gilt besonders 
deshalb, weil dann das 
schaltungsbedingte Eigenge- > 
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räusch der Digital-Analog- 
Wandlung von 10 KHz 
kaum mehr hörbar ist. 

Bei der Umsetzung des Prin- 
zips auf den C64 braucht 
man neben einer geeigneten 
Software also auch einen 
schnellen Analog-Digital- 
Wandler mit mindestens 
4 Bit. Bestens dazu geeignet 
ist das bereits erwähnte 
Speicheroszilloskop. An das 
Gerät wird ein Mikrofon 
oder eine andere „Sound- 
quelle“ angeschlossen. Emp- 
fehlenswert ist der Aufbau 


RUN 


des unten beschriebenen 
Verstärkermikrofons. 

Das Programm SOUND- 
SAMPLER hat neben zahl- 
reichen Einstellmöglichkei- 
ten noch einen besonderen 
Trick parat: 

Um den Speicher des Rech- 
ners möglichst gut auszunut- 
zen, werden zwei aufeinan- 
der folgende 4-Bit-Werte zu- 
sammen als 8-Bit-Wert ab- 
gespeichert. So kann die 
speicherbare Soundlänge 
glatt verdoppelt werden. 
Natürlich werden die ur- 
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Mikrofonkapsel 3polig 


Mikrofonkapsel 2 polig 


Bild 5: Schaltplan zum Mikrofon mit Verstärker 
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sprünglichen Werte bei der 
Wiedergabe wieder ent- 
schlüsselt. 


Das 
Soundsampler- 
Programm 


Das Programm wird wie ein 
BASIC-Programm mit 
LOAD,„SOUNDSAMPLER 
V1“,8 geladen und mit RUN 
gestartet. Nach dem Er- 
scheinen des Titelbildes 
kann man mit <SPACE> 
das Menü (Bild 4) aufrufen. 
Das Programm wird aus- 
schließlich mit einem Joy- 
stick in Port 2 gesteuert, 
eine Maus macht die Bedie- 
nung noch komfortabler. 
Zur Auswahl ‚geht’ man mit 
dem „Mauszeiger“ auf das- 
entsprechende Menü-Recht- 
eck und klickt dieses an. Zu- 
vor muß der Balance-Regler 
am Speicheroszilloskop so 
eingestellt werden, daß im 
Fenster PORT (unten links) 
der Wert 80 erscheint. Dann 
sollte man die Aussteuerung 
so wählen, daß nur bei lau- 
tem Schall rote und weiße 
Striche im Rahmen erschei- 
nen. 

Die Funktionen im einzel- 
nen: 

REC: Es wird aufgenom- 
men. Da der C64 beim 
Soundsampeln recht gefor- 
dert ist, wird der Bildschirm 
abgeschaltet. 

> PLAY: Der Inhalt des 
Speichers wird als Sound 
wiedergegeben. Solange 
noch keine Aufnahme ge- 
macht wurde oder kein 
Sound geladen ist, klingt 
dies recht aufregend. Bei der 
Wiedergabe ist der Bild- 
schirm wiederum abgeschal- 
tet. 

<< RE: Die Aufnahmelän- 
ge des Sounds wird verklei- 
nert. Der relative Wert des 
dabei belegten Speichers 
wird in hexadezimalen Zah- 
len und als Klammer im gra- 
fischen Speicherauszug 


(SHOW-MEM) angezeigt. 
>> FF: Die Aufnahmelän- 
ge des Sounds wird vergrö- 
ßert. In Abhängigkeit von 
der Sampling-Rate lassen 
sich bis zu 28 Sekunden 
Sound aufnehmen. 
SHOW-MEM : Der aktuelle 
Inhalt des Speichers wird 
grafisch angezeigt. 

>> RATE MAX: Die 
Sampling-Rate wird vergrö- 
ßert und die Wiedergabe- 
qualität steigt entsprechend. 
Die maximale Sampling- 
Rate beträgt 10 000 Wand- 
lungen pro Sekunde. 

<< RATE MIN: Die 
Sampling-Rate wird verklei- 
nert. 

DIR’IN: Das Inhaltsver- 
zeichnis der eingelegten Dis- 
kette wird eingelesen. 
SELECT FILE: Die Files 
der Diskette erscheinen ein- 
zeln im Fenster unten und 
können mit LOAD FILE ge- 
laden werden. 

LOAD FILE: Das selektier- 
te File wird geladen. 

SAVE FILE: Der gesampel- 
te Sound wird gespeichert. 
Zuvor gibt man im Direc- 
tory-Feld den Filenamen ein 


und schließt mit <RE- 
TURN> ab. 
Bauanleitun 

zum Verstärker- 
mikrofon 


Der Eingang von Oszillos- 
kopen und damit auch vom 
RUN-Speicheroszilloskop 
ist nicht empfindlich genug, 
um ein Mikrofon direkt an- 
zusteuern. Deshalb muß die 
Mikrofonspannung ver- 
stärkt werden. 

Bild 5 zeigt den Schaltplan 
eines . verstärkten Mikro- 
fons. Je nach Kapseltyp 
(zwei- oder dreipolig) muß 
ein Arbeitswiderstand vor- 
gesehen werden. An die Pla- 
tine (Bild 6 und 7) lassen 
sich beide Typen anschlie- 
ßen. Der Aufbau der Platine 
ist sehr einfach, so daß keine 


besonderen Dinge zu beach- 
ten sind. Bei einer dreipoli- 
gen Kapsel wird der Wider- 
stand Ri weggelassen. Ein 
Abgleich der Schaltung ist 
nicht notwendig. Wer ein 
Multimeter in Reichweite 
hat, sollte am Punkt MI 
knapp 2 Volt und am Punkt 
M2 ca. 3-6 Volt messen. An- 
sonsten muß die Polung von 
Leuchtdiode LD1, den Kon- 
densatoren Cl und C2, dem 


Transistor ... und natürlich 

der Batterie überprüft wer- cı R2 |R3 |R4 

den. Die Schaltung paßt in = 

ein kleines Gehäuse und 

wird mit einem abgeschirm- In;® LDI p- Ik, bu 

ten Kabel mit dem Speicher- Re: N Tı o+9V 

oszilloskop verbunden. Mit R6 

dem Programm „Speicher- ie | “Li 

oszi* (siehe vorangegange- 

s R RS ur 

nen Artikel) kann die Kur- sı 

venform der gesprochenen 

Worte oder Geräusche be- 

trachtet werden. 

(Andreas Schulze) Bild 7: Bestückungsplan zur Platine 
0d,08,ce,07,9e,20,28,32, 3F | 0961 0d,20,46,0b,20,a2,0a,20, 31 
30,36,34,29,00,00,00,78, 8Sd | 0363 d4,0b,a9,0b,8d,20,dd,ad, fs 
39,34,85,01,a2,05,bd,42, OF 09371 3d,0d,18,e3,12,22,05,20, 36 
08,9d4,2d,88,ca,10,f7,9a, ae 0979 ab,20,f9,0c,ad,di,dd,a2, 5d 
a0,00,c6,32,ce,2c,08,bl, 2c 0381 07,20,78,20,F9,0c,ad,®1, 57 
31,99,00,00,c8,d0,F8,a5, e3 0989 dd,c9,00,d0,05,a2,06,Be, 21 
32,c9,08,d0,ed,b9,48,08, 16 0331 20,d0,c9,ff,d0,05,a2,01, 86 
99,00,01,c8,d0,f7,4c,00, FB 0399 84,20,d0,ad,79,11,F0,ca, id 
01,00,08,c6,e8,68,20,b1, 33 0931 ad,7b,11,c9,02,d®,0a,ad, Ob 
ef ‚2a,2a,2a,2a,29,07,aa, 63 0329 7d,11,c9,01,d0,03,20,76, a9 
bd,18,01,84,18,01,b1,2f, b® 0Sb1 2c,3d,7b6,11,c9,04,d0,13, “4a 
29,1f ,aa,20,22,01,4c, ff, 01 0369 ad,7d,11,c9,01,d®,00,20, 97 
01,96,43,a4,79,58,3b,3f, 28 03c1 25,0c,20,46,11,20,5b,11, Ze 
29,e6,2f,d0,02,e6,30,60, 31 09c9 20,a2,0a,ad,7b,11,c9,03, Ob 
b1l,2F,20,22,01,31,2d,e6, 37 0Sd1 d®,10,ad,7d,11,c9,04,d®, 6c 
2d,d0,02,e6,2e,ca,d®,fS, ba 0348 09,20,93,0a,20,38,0F,20, 43 
f0,c5,29,00,F0,ef,a9,Ff, 7e 0Se1 S9,0a,ad,7b,11,c9,03,d®, 3c 
dd,eb,bl,2f,31,2d,e6,2F, 81 09e3 Ba,ad,7d,11,c9,03,d0,03, Sb 
d®,02,e6,30,e6,2d,d0,02, 08 aSf1 20,8c,0F,ad,7b,11,c9,02, 27 
e6,2e,ca,d®,ed,f0,a8,20, 355 ° 09F9 d®,19,ad,7d,11,c9,03,d®, 62 
71,01,b1,2F,20,22,01,91, 680 7 Oa01 12,20,46,11,20,93,0a,20, 3 
2d,e6,2d,d0,02,e6,2e,ca, 27 € 0809 ee,0f,20,99,02,20,5b,11, 9a 
de,fFS,c6,39,10,F1,30,8F, 283 |) Gall 20,a2,0a,ad,7b,11,c9.01. 0d 
86,38,b1,2f,aa,4c,22,01, 4d 7 0a19 d2,0a,2d,7d,11,c9,01.d0, 6£ 
20,71,01,b1,2F,91,2d,e6, «6 Ga2ı 03,20,32,11,ad,7b,11,c9, 7e 
2f,dO,02,e6,30,e6,2d,d0,. 25 0223 03,d0,0a,ad,7d,11,c9,01, c5 
02,e6,2e,ca,d®,ed,c6,39, Fi ®a31 d®,03,20,1e,11,ad,7b,11, 9d 
18,e9,4c,00,01,2c,cf,®1, 16 8239 c9,04,d0,10,ad,7d,11,c9, fc 
a9,37,85,01,58,20,40,03, 64 0s41 03,d0,09,20,33,02,20,87, 3€ 
4c,ae,a7,bl,2f,31,2d,c8, 38 Ba4S 10,20,99,0a,ad,7b,11,c9, F9 
c0,08,d0,£7,18,a5,2d,569, c8 2a51 00,d9,0d,ad,7d,11,c9,02, c4 
08,85,2d,a5,2e,69,00,85, 4d 0253 d0,06,20,a2,02,20,5b,11, 7c 
2e,a0,00,ca,d®,e5,18,35, 24 ®a61 ad,7b,11,c9,00,d0,0a,ad, 09 
2f,69,08,85,2f,a5,30,69, Sb 0365 7d,11,c9,03,d8,83,20,14, 09 
00,85,30,4c,00,01,b9,00, 17 0371 0c,ad,7b,11,c9,00,d@,0a, 57 
ef,39,00,FF,c8,d0,F7,ce, 78 0279 ad,7d,11,c9,04,d0,03,20, 31 
d1,801,ce,d4,01,ad,d4,01, Fi 0281 03,0c,4c,78,09,89,01,8d, a® 
c9,df,d®,ea,690,81,40,00, Fo 0389 15,d0,60,ad,15,d0,09,3e, ®a 
61,e3,20,82,15,39,20,8d, 1d 0a91 84,15,d0,60,78,25,01,23, 33 
3e,0d,a9,12,8d,30,04,39, 7c 0353 F8,85,01,20,bc,0b,a9,00, ad 
d0,8d,3d,0d,a9,8e,20,d2, dc Qaal 85,31,39,08,85,32,39,10, e® 
Ff,a9,08,20,d2,ff,aS,01, b5 Oaa3 8d,c4H,08,39,00,8d,c3,0a, 57 
8d,6Ff,11,a9,0Ff,8d,21,d®, Sa =  @abl a0,04,22,00,2d,00,10,29, di 
20,70,10,20,da,0e,20,3f, 4d ” OabS 0F,84,75,11,49,0F,84,76, 37 


Bacı 
Oac9 
Badı 
Bad9 
@ael 
Dae9 
Oafı 
Bafs 
0b®1 
0b99 
©b11 
8b19 
Ob21 
8b29 
0b31 
0b39 
Ob41 
8b49 
Ob51 
0659 
Ob61 
0b69 
0b71 
0679 
®b81 
8b89 
0b31 
0b33 
Obal 
ObaS 
Obbi 
ObbS 
®bci1 
8bc9 
Obdi 
8bd3 
Obel 
Obe3 
Obfi1 
Obf9 
0c01 
0c83 
®c11 
0c19 


Stückliste 


Widerstände 
RI Ik (siehe Text) 
R2.2:2K 
R3 33k 
R4 10k 
RS 3.9k 
R6 470 


Kondensatoren 
C1,C2 2.2F/12V 
C3 4.7F/12V 


Halbleiter 
Ti BC 549 
LD1 Leuchtdiode, 
Farbe beliebig 


Sonstiges 
1 Schalter IxEin 
1 Batterieclip 
1 9-Volt-Batterie 
1 Elektret-Mikrofon- 
kapsel zwei- oder 
dreipolig 
(siehe Text) 


11,ad,76,11,8d,80,11,8e, 5a 
7£,11,20,04,0b6,ad,75,11, 43 
cd,76,11,f0,0e,30,06,ee, 6F 
76,11,4c,cf,da,ce,76,11, 84 
4c,cf,®a,ee,c4,da,ee,cH, 7d 
®a,e8,e0,18,d0,c6,25,31, 68 
18,69,40,85,31,88,d®,ba, 2a 
ad,6f,11,85,01,58,60,48, 8c 
98,48,85,31,8d,81,11,ad, 34 
80,11,02,18,64,80,11,8d, d2 
81,11,ad,7Ff,11,e3,4a,60, b6 
be,18,6d,81,11,8d4,81,11, 86 
ad,7f,11,29,07,88,c8,a9, S4 
00,38,63,88,d0,fc,ac,81, a9 
11,11,31,91,31,68,48,68, a9 
60,a9,20,84,F9,07,89,21, c4 
8d,fa,07,a9,22,8d,fb,07, 7b 
a9,23,8d,fc,07,39,24,8d, Od 
£fd,07,280,bc,0b,20,c7,0b, 088 
a9,77,8d,02,d0,39,7a,8d, d® 
03,d0,a9,88,84,04,d0,a9, 04 
7a,8d,05,d0,a9,a0,8d4,06, b3 
d®,a9,72,8d,07,d0,89,b8, 3d 
84,08,d2,a9,73,8d,09,d0, d2 
a9,6e,8d,0a,d0,a9,a2,8d, £3 
0b,d0,29,00,84,28,d®,8d, Bb 
23,d0,8d,23,d0,8d,2b,d0, Sa 
8d,2c,d®,ad,15,d0,09,3e, 35 
84,15,d0,ad,17,d0,09,20, cc 
8d4,17,d0,8d,1d,d0,69,a2, c4 
00,39,00,94,00,08,ca,d®, ad 
fa,60,29,00,82,00,34,00, 88 
09,28,e0,40,d0,F8,60,20, da 
c7,0b,a9,00,85,31,89,09, 57 
85,32,a2,00,ad,3e,@d,e4, 8c 
43,60,55,28,8e,7f,11,8c, 2c 
89,11,20,24,06,c8,c0,10, 75 
dd,f2,e8,e0,06,d0,e5,20, ei 
65,10,20,65,10,60,ad,3e, 2fF 
0d4,c9,f0,F0,09,18,69,18, Bf 
8d,3e,2d,20,d4,2b,60,ad, b7 
3e2,2d,c9,00,f9,09,38,e9, ?e 
190,8d,3e,0d,20,d4,0b,60, ac 
20,c0,0c,20,00,a6,42,a9, cı 
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®c21 19,8d,de,dd,ad,@d,dd,23, 11 | Beeil 3d4,00,06,6d,82,14,9d,e8, 09 d 11a1 77,77,77,50,21,74,e7,20, 9b 
0c29 ®1,F0,F9,ad,01,dd,29,Ff®, bc Dee3 06,88,d0d,e5,ae,fe,de,60, 63 | 11a9 29,74,20,20,3c,30,20,20, b6 
©c31 e4,48,60,4c,91,41,8d,20, 6a = 2Befl 00,c0,a2,60,20,e0,60,00, 23 = 11b1 67,74,e3,20,30,3e,20,20, aB 
©c33 d®,a9,19,8d,de,dd,ad,®d, 85 ders 71,F0,00,39,£8,00,1F,Ffc, 63 7° 11b9 67,74,20,20,3e,3e,20,20, F3 
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2e2,07,fc,a5,22,0F,FB,a5, 
e2,3F,e0,36,21,c0,80,37, 
00,23,8c,90,8F,e5,80,23, 
18,0F,ff,a5,21,Fb,c2,22, 
01,01,33,23,c0,c0,e8,c2, 
e5,f8,f0,78,ff,7f,c2,84, 
©1,9f,c3,a4,24,e0,FB,fc, 
fc,a4,e8,01,e8,80,b8,21, 
7f,e3,80,21,Bf,e3,88,c1, 
a3,24,Ff,00,3£,c0,42,FF, 
00,00,00,Ff,00,Ff,00,c1, 
a3,25,Ff,00,Ff8,06,fc,e3, 
02,21,e2,e3,22,a4,24,02, 
06,02,1a,e3,80,29,81,83, 


1719 
1721 
1729 
1731 
1739 
1741 
1749 
1751 
1759 
1761 
1769 
1771 
1779 
1781 
1789 
1791 
1799 
17a1 
1729 
17b1 
17b9 
17c1 
17c9 
17d1 
1749 
17el 
1789 
ı17F£1 
17£9 
1801 
18039 
1811 
1819 
1821 
1829 
1831 
1839 
1841 
1849 
1851 
1859 
1861 
1869 
1871 
1879 
1881 
1889 
1891 
1899 
1Bail 
18a9 
18b1 
18b3 
18c1 
18c9 
1841 
1849 
18el 
18e3 
18F1 
18F9 
1901 
1989 
1911 
1919 
1921 
1929 
1931 

1939 
1941 

1949 
1951 

1959 
1961 

1969 
1971 

1979 
1981 

1989 
1991 

1999 
19a1 

1939 
19b1 

19b9 
19c1 
19c9 


Be,b8,ed,de,18,798,c0,a3, 
21,03,36,22,0F,F8,a5,25, 
3F,e0,00,3F,3F,e3,7F,23, 
7e,7c,78,c3,27,Fd,55,08, 
e1,F3,fF1l,f®,e3,F8,24,78, 
18,d8,f0,b3,24,07,1F,3F, 
7F,a4,24,F0,F8,Ffc,fe,80, 
50,00,22,80,89,42,FF,00, 
00,00,00,08,00,00,c1,a5, 
21,30,43,00,FFf,00,200,00, 
00,00,00,22,00,FF,a5,23, 
01,01,Ff,e5,01,e8,80,b8, 
22,893,89,86,Ba,a4,21,7c, 
e3,66,34,24,cc,cd,cd,cc, 
a4,26,£3,9b,83,£3,01,01, 
82,e3,30,23,f0,22,22,e6, 
a2,2b,2b,6f,af,be,aa,ae, 
ab,ea,c®,bf,e®0,e3,80,24, 
£ff,81,Ffe,80,a5,c1,a7,21, 
890,88,25,71,79,50,40,38, 
e3,30,29,42,02,00,01,01, 
0e,00,3F,58,e5,10,22,20, 
20,89,22,01,01,e5,03,c6, 
22,e3,c0,c6,22,8F,07,a2, 
e6,80,ab,35,01,02,02,03, 
01,12,5a,2Ff,90,66,cb,3fF, 
79,30,64,3b,ad,Sa,d6,85, 
6a3,83,e5,80,ad,23,07,1F, 
3F,a5,23,f8,78,bf,80,40, 
00,e8,01,e8,80,b8,e8,Ba, 
23,7c,60,60,35,23,cc,cd, 
78,a5,23,1b,9b,f3,a5,e3, 
30,a5,e8,a2,2c,be,af,aß, 
b0,a80,c0,80,00,80,c0,f8, 
8f,e4,80,83,26,80,F8,0F, 
01,00,FFf,a5,24,F0,1F,c0, 
7F,86,23,1c,e5,05,e5,04, 
21,de,a2,23,80,45,3e,a2, 
285,20,40,40,ed,bf,e3,80, 
a4,22,f0,1f,a2,22,01,03, 
e3,02,33,fa,01,20,80,bB, 
Be,18,00,80,80,81,03,3e, 
5a,32,42,42,43,84,86,22, 
89,fFf,a7,23,e0,03,02,e3, 
03,e3,02,380,ed,f3,9a,20, 
3c,96,034,00,d6,63,c7,43, 
lb,e2,2a,42,e4,80,a7,22, 
01,01,e3,03,21,7F,c4,25, 
FB,FO,e6,9Ff,df,c4,27,33, 
0d4,80,c0,c0,ed,ed,e3,f®, 
80,38,00,e8,01,e8,80,bB, 
e8,8a,32,7b,cf,c3,7b,Of, 
cf,7b,08,e7,3c,3c,3f,ec, 
0c,2c,00,8F,d9,e3,d8,2b, 
d9,cf,00,3e,b0,30,3c,390, 
b9,38e,00,e8,a2,a2,28,01, 
03,02,06,04,0c,80,80,ae, 
21,01,37,23,e8,38,03,a2, 
Eb,21,02,804,04,04,c8,10, 
6f,c4H,00,11,a4,2c,FF,44, 
00,11,40,30,4F,31,00,44, 
00,11,33,25,c0,20,50,10, 
10,38,30,40,47,43,20,20, 
30,37,20,24,e4,c4,08,08, 
18,F0,10,38,21,3F,a7,22, 
fa,01,a6,83,80,30,41,40, 
47,62,71,02,43,42,42,04, 
e4,44,88,00,80,Ff,a5,38, 
07,07,e87,3F,0F,OF,ı1F,1F, 
e3,c7,82,80,80,e0,e0,f®, 
90,1c,18,18,10,11,71,01, 
e6,f0,22,£7,F8,a6,22,F8, 
0e,80,30,00,e8,01,e8,80, 
bB,22,89,89,e3,88,23,8f, 
80,80,a2,22,c0,3F,42,00, 
EF,00,008,00,88,00,Ff,2c, 
00,FF,00,cc,01,01,06,F8, 
00,Ff,00,c0,e5,22,2b,e2, 
02,03,18,10,30,20,560,c0, 
80,80,66,32,01,01,18,34, 
490,51,80,c4,00,19,00,44, 
00,11,808,44,80,51,42,00, 
44,00,11,00,44,08,11,2e, 
10,50,1c,27,20,61,26,28, 
00,21,07,18,60,80,a2,30, 
20,e0,30,398,2c,26,2f,3b, 
12,18,0F,0e,1a,12,39e,F4, 


19d1 
1949 
19el 
19e3 
19Ff1 
19£f9 
1a01 
1a89 
lalı 
lal9 
la21 
1a29 
1a31 
1a39 
1a41 
1a49 
1aS1 
1a59 
1a61 
1363 
1a71 
1a79 
1a81 
1a83 
1aS1 
1aS3 
laal 
laaS 
iabl 
labS 
lacı 
lac9 
1adi 
lad9 
lael 
laeS 
lafı 
laf9g 
1b®1 
1b83 
1b11 
1b19 
1b21 
1b29 
1b31 
1b39 
1b41 

1b49 
1b51 
1b59 
1b61 

1b69 
1b71 

1b79 
1b81 

1b83 
1bS1 

1bS3 
ibal 
1ba9 
1bb1 

1bb3 
1be1 

1bc3 
1bdi1 
1bd9 
ibel 

1be3 
ibf1 

1bf9 
1c01 

1c83 
1c11 

1c19 
1c21 

1c29 
1c31 

1c33 
icH41 

1c49 
1c51 

1c59 
ic61 
1c69 
1c71 
1079 
1c81 


a3,23,fc,07,01,87,23,80, 
c0,60,86,2d,01,0F,58,Hc, 
43,490,490,c0,e0,F0,08,30, 
fd0,e3,10,22,38,78,a8,eB, 
3f,32,£0,F0,F8,fc,fe,f3, 
£8,f8,f9,73,03,07,0F, FF, 
OF,of,f8,FB,e3,fc,e3,fe, 
80,38,08,e8,01,e8,80,b8, 
23,80,80,7Ff,87,c1,a7,cl, 
a5,23,cc,00,Fff,35,23,c®, 
00,Ff,a5,23,03,02,Ffc,bd, 
38,02,02,04,05,08,00,10, 
11,24,44,00,13,22,44,00, 
11,40,44,20,31,40,44,40, 
91,42,08,44,00,11,00,44, 
08,11,e5,590,23,90,30,a8, 
38,21,01,27,e3,80,e5,40, 
aB,25,30,19,04,05,07,e3, 


03,22,76,ef,c6,2c,f8,Ffd, 


7E,£fb,de,£7,Ff,f7,fc,Eb, 
Ff,fb,c2,27,ef,df,090,80, 
fd,fc,fe,c3,28,3F£,7F,Ef, 
fe,fd,f8,390,c0,F0,c0,a3, 
26,80,40,20,0F,0F,07,a3, 
22,01,06,c4,23,fc,b8,10, 
a3,26,80,80,60,30,18,0c, 
80,30,00,e8,01,e8,80,850, 
Sf,00,32,01,20,24,40,51, 
80,c4,80,11,00,45,01,13, 
02,456,04,15,80,42,44,00, 
11,00,44,00,11,00,23,44, 
01,11,01,45,01,11,a0,a2, 
e6,20,26,22,04,04,38,e3, 
40,25,80,80,82,83,82,a6, 
22,e0,10,e8,03,dd,39,Fd, 
FF,fb,dO,F8,fc,Ffe,fc,FB, 
d8,c0,1f,38,7c,FfFf,7c,38, 
10,00,f8,38,7c,fe,fc,38, 
e3,10,2f,38,7c,Fe,7c,3a, 
12,02,14,3a,7e,fe,7e,3a, 
12,02,80,30,00,e8,01,eB, 
80,80,58,00,e3,01,a6,23, 
44,00,11,84,23,04,54,0d, 
a6,24,44,00,a9,04,a4,25, 
44,20,11,00,54,22,26,01, 
45,01,12,02,46,a2,25,20, 
40,40,30,0f,a3,25,04,i1c, 
04,04,FB,ab,e4,82,25,02, 
02,03,08,10,e5,11,22,el, 
00,e4,03,23,0F,£9,03,c7, 
21,bf,d2,60,26,F7,Ff,ef, 
FF,ef,Fff,df,dO,f8,fc,fe, 
fc,f8,d0,c0,10,38,7c,fe, 
7c,38,180,082,10,38,7c,Ffe, 
7c,38,30,20,12,3a,7e,Fe, 
7e,3c,14,04,12,3a,7e,fe, 
7e,3a,12,02,50,30,00,e8, 
01,28,80,80,b8,90,21,1F, 
37,c1,a7,c1,a7,22,Ff,1f, 
a6,22,dd,fa,a6,22,10,2a, 
a6,22,30,ba,a6,21,48,a7, 
21,80,80,37,00,e8,01,eB, 
80,24,21,01,e3,03,a2,26, 
3E,ff,FO,fo,Fö,ff,a2,o6, 
fc,ff,0f,03,00,80,a4,24, 
81,03,07,07,a2,22,3F,Ff, 
e4,fc,a2,26,fc,ff,0Ff,03, 
03,01,a2,26,0Ff,1F,39F,3F, 
df,df,a2,21,20,e85,Ff0,a2, 
21,de,e5,l1e,a2,21,0F,eS, 
1f,a2,26,c0,ed,f0,Ff8,fc, 
fe,a2,21,8c,85,1c,a2,21, 
1f,e5,3Ff,a2,c2,e4,c0,a2, 
86,00,f0,F8,38,3c,1c,a2, 
26,07,1F,3e,7e,7£,7f,a2, 
c2,21,01,a2,21,f0,a2,24, 
80,e0,F0,60,36,24,03,0f, 
38,ed,a2,22,30,fc,c2,22, 
3F,1f,a2,26,01,03,03,c3, 
e3,e3,a2,26,80,c0,e0,f®, 
f8,fc,a5,23,01,03,07,a2, 
e2,30,7c,e4,Ffc,a2,21,0F, 
e5,1f,a2,c2,e4,c0d,a2,26, 
c0d,fd,FfB,3c,1c,1c,a2,21, 
3f,e5,7f,a2,e6,80,a2,21, 
01,e5,803,a2,c2,e3,fB,c1, 
a2,c2,a3,21,fc,a2,21,83, 


Januar/88 Um 101 


BAOTELN 


1c89 e5,07,a2,c2,e4,f®,a2,26, 2d 1ddS 06,a5,23,f0,00,03,a5,23, 14 ı1F21 bO,9e,a6,22,c3,c3,a6,22, 19 
1c91 FO,Ffc,3e,0F,07,07,b8,e8, £3_ ÜÜ2 idel 0c,0c,ef,a7,21,39,a5,23, 52 ©  ıF29 60,3e,a?,21,3F,e3,31,22, ®e 
1c99 01,e8,80,22,03,01,83,23, F9 4 1de3 30,30,b7,a7,21,f3,a7,21, c5 © ıF31 d8,cc,a3,25,80,9e,b3,00, le 
ical 01,03,01,c2,27,7E,0£,00, £6 ” 1dfı c0,80,28,00,e8,01,e8,80, 35  1F39 07,a4,24,30,60,36,e3,a2, b6 
ica9 80,ed,ff,fc,c4H,25,1f,3F, 22 @= 1df9 b8,22,00,0f,e3,0c,a3,22, e9 = 141 26,c0,00,cf,d9,18,d8,a4, 8c 
icbl fe,07,07,e4,87,22,03,01, 83 ÜÜ 1e®1 Eo,ec,e3,6c,a3,21,dd,e3, 72 1F49 24,9e,b3,66,1c,a4,24,60, 10 
icb9 e7,fc,c1,e5,01,23,03,07, a2 ® 1e89 d9,21,cf,a3,eS,b0,a3,25, 36 = ırsı 69,c1,7c,a2,21,1f,e3,31, @d 
1cel Fe,e4,df,24,9F,9F,06,07, dd | 1ell cd,fd,c1,c1,7c,23,25,9b, 34 1ıF5s3 22,86,f6,a3,25,80,9e,b3, 7 
1cc9 e7,f0,c1,e6,1e,23,7c,£8, 51 BE 1e19 99,98,98,Ffb,a4,24,e0,30, ce \ 1Ff61 db,d9,a4,24,3e,66,36,f6, 9a 
icd1 1d,e7,1c,c2,29,7F,3F,1f, SC FÜ 1e21 30,e0,33,21,03,a3,21,07, 4d ©  ıf69 a2,26,01,01,79,cd,6c,6c, 28 
1cd9 0Ff,07,03,1c,9c,dce,e5,fc, 8 T 1e29 a2,22,0d,e7,e3,36,21,e3, 931 1F71 a2,26,b6,86,b6,b7,c0,c0d, aa 
icel e8,3f,e7,cd,c1,e4,i1c,2c, 9d = 1e3l a2,21,80,e4,0c,21,ec,a3, 51 179 a4,22,c7,8c,86,22,c0,cd, 3 
ice3 18,38,70,e0,7F,3F,0F,01, bf = 1e39 e4,d9,21,cf,a3,25,b9,b®, db 1f81 a4,e4,61,a4,24,80,80,9e, 84 
icf1 88,30,7c,3F,c4,26,1f,03, c7 ie41 b1,b3,b7,a3,25,66,c7,86, 12 a 1F89 b3,a4,24,67,6c,6c,6f,a4, 97 
1c£f9 07,ff,81,el,e4,fl,22,el, de |} 1e43 06,f3,23,22,60,e0,a2,21, 36 ı1Fsı 21,80,82,21,0e,a7,21,78, 3b 
1d21 c1,e4,c0,c2,23,c0,c0,0Ff, £® eg le51 ed,a2,21,0c,80,88,00,e8, “43 5 1Ff99 a7,21,ce,a7,21,b0,b®,e8, e6 
1d09 e3,07,c2,22,07,07,e8,e3, 7F£ & 1eS3 01,e8,80,80,39,00,22,01, 74 2 1fal 01,e8,80,80,80,00,e3,31, “4b 
1d11 21,fe,c2,2d,bf,9Ff,8F,87, e® E 1861 01,a4,25,01,Fd,80,81,FS, 86 1fa9 21,3F,a4,24,bFf,b0,ba,1f, 01 
1d19 82,0F,1b,f3,e3,c3,83,03, 35 ” 1e63 e3,04,24,F9,80,00,9e,e5, 39 © AFbl a4,24,3c,06,06,7c,a4,e3, ®1 
1d21 83,e8,fc,e8,1f,22,c0,c0, 2d & 1e71 b3,28,67,00,67,6cC,67,60, f3 ' 1fb9 d9,23,cf,01,1f,a2,e4,b3, 31 
1d29 c2,e4,c0,24,18,70,e0,808, Bl = 1e79 60,6f,a2,26,8f,19,39,d9, a2 ifci 21,80,85,22,60,60,a4,21, a7? 
1d31 a4,e8,7Ff,e7,80,c1,e7,03, f8 TÜ 1e81 d9,8f,a2,e6,80,21,19,e7, 97  1fc9 3Ff,e3,31,a4,e4,b3,a4,e3, dc 
1d39 22,c3,ff,e6,f8,22,ff,Ff8, 54 SS 1e89 36,22,9b,c3,e6,db,2b,86, 1c 1fd1 66,23,3e,06,7c,a2,24,fd, 7c 
1d41 a6,c1,e7,07,23,87,£0,f0, 60 TI 1eS1 00,66,06,86,c6,66,36,18, 58 1Fd9 c1,c1,7d,a4,24,b7,b7,b6, “48 
1d49 c3,2b,f3,F0,f0,06,1c,f8, aß 5 1e39 09,7c,e4,c0,21,7c,80,a8, 26 = 1fel b6,a4,24,00,8c,cc,67,a4, ad 
1d5l e8,c0,fd,fc,3Ff,b8,e8,01, SE TI 1eal 00,e8,01,e8,80,80,62,00, 35 1fe9 e4,cQ,a4,24,61,6d,64,33, di 
1dS9 e8,80,a8,21,7Ff,a7,21,F8, £Eo U iea9 21,1f,e3,18,22,1F,18,a2, 46  ı1ffi a4,e3,b3,21,1e,a4,e4,6c, 45 
1id61 af,21,7f,a7,21,£8,a7,21, 15 = lebl 26,80,c0,cf,d93,99,19,a2, 4f z 1FFS a4,24,02,l1e,la,1f,a4,24, de 
1d6S 03,a7,c1,a7,21,£0,a7,21, 2e T 1jebS 23,30,30,bc,e3,b0,a2,23, 19 2001 dd,db,db,df,a4,24,d8,d8, 78 
1d71 18,87,21,01,87,21,f8,a7, 67 1ec1 03,00,Ffb,e3,c3,a4,21,3e, 1d = 2003 SB,cf,a4,24,b0,F0,bd,b4, c5 
1479 21,3f,87,c1,87,21,80,a7, 27 lec9 83,560,32,26,c0,c0,d8,f®, e6 2011 b4,e8,01,e7,80,c1,a7,cl, 8c 
1d81 21,0f,87,c1,87,21,01,87, dd 7’ 1edi e0,F0,a2,24,03,06,06,03, Ge 2019 a7,c1,a7,c1,a7,c1,a7,c1, 98 
1d89 21,80,a7,21,07,87,21,c3, e&E TI) 1ed9 a4,26,F6,06,07,686,36,36, Bf = 2021 a7,c1,a7,c1,a7,c1,a7,cl, 98 
1d31 af,21,03,87,21,F8,a7,21, 9a R i1eel a4,21,8f,e3,18,a4,21,1c, a9 2029 a7,c1,87,c1,a7,c1,a7,c1, 38 
1d99 1Ff,a7,21,80,af,21,7Ff,a7, 7 TE 1eeS e3,66,32,26,01,01,79,cd, a4 2031 a7,c1,37,c1,37,c1,a7,c1, S8 
1dal c1,a7,21,83,87,c1,a7,cl, 4 TS 1efl fd,c1,a2,23,80,80,e3,e3, ba 2039 a7,c1,a7,c1,a7,c1,a7,c1, 98 
1da9 a7,21,07,87,21,e0,a7,21, ee 77 1efS 86,a4,21,31,e3,db,a4,21, 5d 2041 a7,c1,37,c1,37,c1,a7,c1, 98 
1db1 0e,80,1f,00,e8,01,e8,80, fb ” 1F91 F3,e3,36,a4,21,07,e3,6c, 74 2049 a7,c1,87,c1,a7,c1,a7,cl, 98 
1db9 bd,23,07,0c,0c,35,23,c0, SE T 1F09 a4,21,80,e3,c0,89,50,00, b® 2051 a7,c1,87,c1,a7,c1,a7,c1, 98 
1dci 60,67,85,23,01,01,8f,a6, 683 DV ı1flil e8,01,e8,89,80,60,00,22, 4c "2859 a7,c1,37,c1,87,c1,a7,c1, 98 
1dc9 22,80,9e,a7,21,78,a7,21, c9 =  ıfı9 18,18,a56,22,13,0F,a6,22, 11 2061 a7,c1,e7,01,c1,00,08,00, 8c 


1dd1 F9,87,21,e0,a5,23,03,06, 12 


Das Soundsampler-Listing wird mit dem Checker eingegeben. 


Autoren gesucht! 


Für unsere C64-Sonderhefte, für Amiga-Welt und MS-DOS- 
Welt suchen wir ständig Programmautoren. 


E Name: 
Schlechte Noten - Ba ee 
. = ; 
nach Noten vertrimmen? \ : | ©“, 
Der wunde Punkt! Eine „verhauene“ Arbeit ist nur ein Telefon: 
Warnsignal - aber keine Katastrophe. Statt die Angst zu ver- Geburtsdatum. 
tiefen, sollten Eltern das Selbstvertrauen des Kindes Meine Einsendung ist für: 
stärken. Wer in unserem Land etwas für Kinder tut, tut das Beste 0C64 DI28 D&Amiga DMS-DOS 
für die Zukunft. 

Programmname: 
Inhalt der Sendung: 
DO Listing 


OD) Programmbeschreibung 

DO] Programmbeschreibung auf Diskette 
O Diskette 

DO) Hardwarebastelei 

U] Sonstiges: 


Ich bin damit einverstanden, daß die Rechte an meinem Pro- 


Fragen Sie uns - wir helfen weiter. Helfen 


auch Sie mit - durch Ihre Spende: PSchAmt 
München, Kto-Nr. 440 809. 

Deutsches Kinderhilfswerk e. V. 
Langwieder Hauptstr. 4, 

8000 München 60. 


Das Deutsche Kinderhilfswerk e. V. dankt für die kostenlose Einschaltung dieser Anzeige. 


WU EN ER NE EN, 


gramm an den Verlag (CW-Publikationen) übergehen, sobald 
der Verlag die Veröffentlichung zugesagt hat. Die Honorie- 
rung erfolgt nach Veröffentlichung entsprechend den verlags- 
üblichen Sätzen. Weiterhin bestätige ich mit meiner Unter- 
schrift, daß mein Programm frei von Rechten Dritter ist. 


Unterschrift: 


Bei Minderjährigen (unter 18 Jahren) bitte die Unterschrift 
eines Erziehungsberechtigten: 


Unterschrift: 


it der 
Triac-Kar- 
te von Al- 
comp, läßt 
sich der C64 in eine pro- 
grammierbare Lichtorgel 
bzw. Schaltuhr verwandeln. 
Die Triac-Platine ist in ei- 
nem grauen Kunststoffge- 
häuse untergebracht und 
wird mittels herausgeführ- 
tem Kabel an den Userport 
angeschlossen. Die Triacs 
können acht Ausgänge von 
220 Volt steuern und sind je- 
weils bis maximal 800 Watt 
belastbar. Optokoppler auf 
der Triacplatine ermögli- 
chen Ansteuerung der Triacs 
mit Nullspannung. Die 
TTL-Pegel sind von der 
Wechselspannung galva- 
nisch getrennt. Durch diese 
Maßnahmen des Herstellers 
ist ein Höchstmaß an Sicher- 
heit gewährleistet; der Rech- 
ner wird bei Überlastung des 
Moduls nicht zerstört. 

Um Lampen oder andere 
Geräte am Triac-Modul an- 
zuschließen muß zunächst 
dessen Gehäuse geöffnet 
werden. Im Innern (siehe 
Bild) findet sich dann eine 
l8polige Lüsterklemmleiste. 
Hier muß zunächst ein 
Stromkabel angeschlossen 
werden, das die Platine mit 
220 Volt Wechselspannung 
aus dem Stromnetz versorgt. 
Dann bietet es sich an, acht 
Kabel mit Steckdosen an der 
Klemmleiste anzubringen. 
Diese Steckdosen können 
später per C64-Programm 
ein- und ausgeschaltet wer- 
den. Die Ein-/Ausgangslei- 
tungen können aus dem Mo- 
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„ TRIAG-KARTE 
FÜR 664 UND G128 


Computer sind als Steuergeräte hervorragend 
geeignet. Mit entsprechender 
Hardware kann der 664 per Programm 
Steckdosen ein- und ausschalten. 


Treiber- 
Signale d 


Kılvanmsche Trennung 
über Trincs 


--kılUfsul. 
Ausgangssteuerung 


durch Optokoppler 


2 

7 
> 
Fr 


Bildt: Triac-Modul mit geöffnetem Gehäuse 


Achtung! 
Im schraffierten 


Bild2: Blockschaltbild der Triac-Karte 


dulgehäuse herausgeführt 
werden. Hierzu muß ledig- 
lich ein Seitenteil des Kunst- 
stoffgehäuses herausgezo- 
gen werden. Ansteuern der 
Triac-Karte per BASIC oder 
Assembler ist unproblema- 
tisch. Zunächst wird das Da- 
tenrichtungsregister des 
Userports mittels POKE 


WERE ER ER 


56579,255 auf Ausgang ge- 
schaltet. 

Zum Schalten der „Steckdo- 
sen“ ist Speicherzelle 56577 
zuständig. Soll eine der acht 
Leitungen eingeschaltet wer- 
den, so muß man lediglich in 
56577 das zugehörige BIT 
setzen. 

Eine Lichtorgel bzw. Lauf- 


licht mit Hunderten von 
Mustern kann so mit weni- 
gen BASIC-Zeilen program- 
miert werden. 

Wie wäre es zum Beispiel 
mit einem automatisierten 
Haushalt: 

7.00 h: Stereoanlage ein- 
schalten zum Aufwachen 


7.10h: Licht anschalten 
(um Verschlafen unmöglich 
zu machen!) 


7.11 h: Kaffeemaschine ein- 
schalten, Toaster anwerfen 
Nach etwa 10 Minuten, 
wenn der Kaffee fertig ist, 
Wortmeldung des C64 über 
Sprachsoftware: „Aufste- 
hen! Frühstück ist fertig!“ 
7.15 h: Stereoanlage aus- 
schalten und dafür Videore- 
corder und Fernseher in der 
Küche anwerfen. 

8.00 h: Alles ausschalten 
(falls man dies beim Verlas- 
sen der Wohnung vergessen 
hat!) Dieser Ablauf kann 
natürlich an jedem Wochen- 
tag anders aussehen — ins- 
besondere am Wochenende. 
Wer den C64 mit Triac-Kar- 
te einsetzen will, sollte unbe- 
dingt mit Arbeiten am 
Stromnetz bzw. mit den er- 
forderlichen Sicherheits- 
maßnahmen vertraut sein. 
Immerhin geht’s hier um 220 
Volt und da ist bei Unacht- 
samkeiten schon so manches 
passiert! Die Triac-Karte für 
den C64/C128 kostet 149 
Mark. Zum Lieferumfang 
gehört ein Datenblatt, in 
dem alle Anschlüsse und die 
Ansteuerung der Karte per 
Software, beschrieben sind. 


Bezugsquelle: Alcomp, Lessingstr. 46, 
5012 Bedburg, Tel (02272)/1580 
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ein Rech- 
ner hat kei- 
ne 64 KByte 
RAM-Spei- 
cher mehr...“, „Die Floppy 
läßt sich nicht mehr anspre- 
chen...“ — so beginnen viele 
Briefe an die RUN-Redak- 
tion, Oft passiert es, daß ein 
Floppy-Parallelkabel bei 
eingeschaltetem Rechner, 
aus dem Userport gezogen 
wird. Dann geht meist ein 
Port-Baustein auf der Rech- 
nerplatine kaputt, die 
Floppy tut’s nicht mehr. 


Zur Reparatur muß hier le- 
diglich der kaputte Baustein 
ersetzt werden. Die Repara- 
tur bereitet den wenigsten 
Elektronik-Bastlern Schwie- 
rigkeiten. Problematisch ist 
jedoch die Fehlersuche. Da- 
bei hilft ein neues Hardwa- 
re-Set von Roßmöller. Es 
beinhaltet Test-Software auf 
einer Eprom-Karte und 
mehrere C64-Stecker. Zu- 
nächst wird der Rechner von 
allen Peripherie-Geräten 
und vom Stromnetz getrennt 
und das Gehäuse geöffnet. 
Danach muß die Tastatur 
entfernt werden. Sodann 
werden sämtliche C64-Ports 
mit den entsprechenden 
Steckern des Reparatur-Sets 
(Bild 1) versehen. 

Schließt man jetzt einen Mo- 
nitor an und versorgt den 
Rechner mit Strom, so über- 
prüft die Eprom-Software 
sämtliche Funktionen und 
Bauteile des Rechners (Bild 2). 
Der Reihe nach werden Ze- 
ropage, Stack-Page, Color- 
RAM, 64K-RAM, BASIC- 
ROM, Kernal, Timer, Inter- 


HARDWARE 


oELBOT REPARIERT 


Was tun wenn der Gomputer nicht 
mehr so recht will? Eine Reparatur in der Werk- 
statt kostet Geld und kann mehrere 
Wochen dauern. So mancher Bastler schraubt den 
664 folglich selber auf. Oft genügt der 
Austausch eines Bauteils um den Rechner 
wieder instand zu setzen. Hier 
ist die richtige Ausrüstung zur Fehlersuche... 


a > 
ei tr» 


Bild 1: Die richtige Ausrüstung zur Fehlersuche: Reparatur-Set von 
Roßmöller und Datenblätter vom te-wi Verlag. 


Bild 2: Kein Fehler wurde entdeckt — der Test-C64 funktioniert 
tadellos. 
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rupt, Keyboard + Joysticks, 
Paddels, Cassetten-Port, se- 
rieller Port, Userport, SID 
und VIC getestet. 

Die Testfolge wiederholt 
sich nach jedem Durchlauf. 
Dies ist notwendig um Feh- 
ler aufzuspüren, die erst 
nach einer gewissen Ein- 
schaltzeit auftreten — als 
Beispiel sei hier ein IC ge- 
nannt, das bei Überhitzung 
nicht mehr richtig arbeitet. 
Das Roßmöller Reparatur- 
Set läßt sich bei jedem ka- 
putten C64 einsetzen, inso- 
fern beim Einschalten noch 
ein Bild zu sehen ist. Bei 
nicht vorhandenem Video- 
Signal kann man am Moni- 
tor schließlich keine Fehler- 
meldungen der Test-Softwa- 
re erkennen. 

Zum Lieferumfang des Sets 
gehört noch ein Informa- 
tionsblatt, dem Tips und 
Tricks zu Fehler-Lokalisa- 
tion und Behebung, zu ent- 
nehmen sind. 

Das Reparatur-Set kostet 99 
Mark -— Interessant für 
Werkstätten und Computer- 
Clubs. 

Ergänzende Literatur zur 
Selbstreparatur gibt es beim 
te-wi Verlag. Die „Repara- 
turanleitung für C64“ kostet 
29,80 Mark und bietet auf 
24 Seiten Schaltpläne, Tips 
und Anleitungen zur Fehler- 
suche beim C64. Sie ist in er- 
ster Linie für Hobby-Elek- 
troniker gedacht, die mit » 
Osziloskop und Logik-Ana- 


lysator umzugehen wissen. 
Bezugsquellen: 

Roßmöller GmbH, Maxstr. 50-52, 
3300 Bonn 1, Tel 0228/659980 

te-wi Verlag, Theo-Prosel-Weg 1, 
8000 München 40 
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FPROM-KARTE 
FÜR 2128 


Be. Der 128er Modus des 6128 wurde 
soo Ma Hislang von Eprom-Modulen nicht unterstützt. 


Einschalten des 


nicht auf mehrere Eproms 
gespeichert werden. Ein 
Programm, das gebrannt 
werden soll, darf also nicht 
größer als 64 KByte sein, in- 


Rechners verfüg- Von Alcomp gibt es jetzt 
eine Eprombank die speziell für den 


bar sein sollen, müssen sich 


auf einer Eprom-Karte am 
Rechner befinden. 
Alcomp’s Eprombank (Bild 
l) ist für den C128 gedacht 
und daher im C64-Modus 
nicht ansprechbar. 

Auf der Karte befinden sich 
vier freie Steckplätze für 
Eproms vom Typ 2764 (8 
KByte) bis 27512 (64 KByte). 
Alle Eprom-Typen können 
beliebig gemischt werden. 
Die Karte bietet folglich 
Platz für maximal 256 
KByte Software. 


Viertel Million in 
Eproms 


Zum Betrieb wird die Karte 
bei ausgeschaltetem Rechner 
in den Expansionport einge- 
steckt. Nach dem Einschal- 
ten meldet sich das System 
mit einem Auswahlmenü. 
Hier können gebrannte Pro- 
gramme oder der integrierte 
Modulgenerator aufgerufen 
werden. 

Der komfortable Modulge- 
nerator macht das Brennen 
von Programmen zum Kin- 
derspiel. Bis zu 26 Program- 
me können zu einem Brenn- 
file zusammengebunden und 
gespeichert werden. Zu be- 
achten ist hierbei lediglich 
die Speicherkapazität des 
verwendeten Eproms. 

Jedes Eprom repräsentiert 
eine abgeschlossene Spei- 
chereinheit. Das heißt, ein- 
teilige Programme können 


6128 entwickelt wurde 
und den großen 664 voll unterstützt. 


sofern ein 27512 Eprom ver- 
wendet wird. Dank dieses 
„Nachteils“ lassen sich 
Eproms auf der Karte jeder- 
zeit austauschen, ohne daß 
dabei eine bestimmte Steck- 
platzanordnung eingehalten 
werden muß. 


Eprom-Karte als 
RAM-Floppy 


Die C128 Eprombank unter- 
stützt 40-Zeichen-, 80- 
Zeichen- und den Fastmo- 
dus. Programme aus der 
Karte können mittels 
BANK-Befehl per Pro- 
gramm in den Rechner gela- 
den werden. Die Eprom- 
bank übernimmt hier quasi 
die Funktion einer Nur- 
Lese-RAM-Floppy. So las- 
sen sich oft verwendetet Ma- 
schinen-Utilities blitzschnell 
in einem BASIC-Programm 
laden. Lädt man ein BASIC- 
Programm von der Karte, so 
geht das aktuelle BASIC- 
Programm im Rechner ver- 
loren. 

Die C128-Epromkarte ist 
für den Expansionport oder 
den freien Anwendersockel 
auf der C128-Platine erhält- 
lich. Jede Version kostet 139 
Mark. Wer will kann beide 
im C128 einbauen/anstek- 
ken und hat dann 512 KByte 
ROM-Speicher zur Verfü- 
gung. 


Bezugsquelle: Alcomp, Lessingstr. 46, 
5012 Bedburg, Tel. 02272/1580 
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EPROM-KARTE 


ZUM NIEDRIG - PREIS 


Wer einen Brenner hat, benötigt Eprom-Karten. 


Hier ist eine, die im Selbstbau weniger als 10 Mark kostet. Der Aufbau der 


Schaltung dürfte Einsteigern, die mit dem 


Lötkolben umzugehen wissen, keine Schwierigkeiten bereiten. 


er C64 ver- 
Ey fügt am Ex- 
# pansionport 
über zwei Pins 
für externe Speichererweite- 
rungen im Bereich von 
$8000-$A000. Die beiden 
Leitungen werden als Ex- 
ROM und ROML bezeich- 
net. Wird ExROM auf Mas- 
se gelegt, so schaltet das 
rechnerinterne RAM ab und 
ROML führt LOW-Pegel. 
Dieser LOW-Pegel wird bei 
der folgenden Schaltung als 
Chip-Select verwendet. Das 
heißt, werden die Eprom- 
Pins CS und OE auf 0 Volt 
gelegt, so ist das Eprom ak- 
tiviert, und die darin gespei- 
cherten Daten können vom 
Rechner geladen werden. Da 
der C64 über die zwei Signa- 
le nur 8 KByte adressieren 
kann, verlaufen lediglich die 
Leitungen AO bis Al2 zum 
Adreßbus (13 Adreßleitun- 
gen = 8 Kbyte). Mit A13 
und Al4 des Eproms wird 
eine 8 Kbyte-Bank ausge- 
wählt. Um sicherzustellen, 
daß an Al3 und Al4 ein de- 
finierter Pegel anliegt, muß 
an beiden jeweils ein Pull- 
Up-Widerstand von 10 
KOhm auf 5 Volt gelegt wer- 
den. Ein 100nF-Kondensa- 
tor dient zur Glättung der 
Betriebsspannung. 

Eine Leuchtdiode als Be- 
triebsanzeige wird folgen- 
dermaßen angesteuert: Ist 
der Aus/Ein-Schalter in 
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Bild 1: Fertig aufgebaute Epromkarte. 


Transistor-Basis Masse, die 
LED ist erloschen. 

Die Epromkarte (Bild 1) 
kann mit 2764-, 27128- oder 
27256-Eproms bestückt wer- 
den, bietet also maximal 32 
Kbyte Speicherplatz. 

Auf zusätzliche Flip-Flops 
und Gatter wurde beim Auf- 
bau der Schaltung aus Ko- 
stengründen verzichtet. Da- 
her können in eine Eprom- 
Bank nur Programme mit 
mindestens 33 Disk-Blocks 
Länge gebrannt werden. Da 
jedoch mehrere Progamme 
zu einem Brennfile zusam- 
mengefaßt werden können, 
ist dieser „Nachteil“ durch- 
aus zu verschmerzen. 


Sicherer 
Kontakt 

ist oberstes 
Gebot 


Zunächst wird die Platine 
nach Layout-Vorlage (Bild 
2a + 2b) geätzt und ge- 
bohrt. Dann sollte mit der 
Durchkontaktierung begon- 
nen werden. Dazu nimmt 
man Silberdraht-Stücke und 
steckt sie in die dafür vorge- 
sehenen Löcher (siehe Bild 
3). Dann lötet man sie an 
beiden Platinenseiten fest 
und zwickt anschließend mit 
einem Seitenschneider die 
überstehenden Drahtenden 
ab. 

Sind alle Durchkontaktie- 
rungen hergestellt, kann be- 


C= | pusıeın 


stückt werden. Zunächst Der Modulmaker (Listing 1 links“-Taste ermöglicht Ein- holt sich so lange, bis die 


werden niedrige Bauteile + 5) erlaubt es, bis zu drei gabe des gewünschten File- Anzahl der Brennfiles er 
(Widerstände, IC-Sockel Programme in eine 8 KByte- namens. reicht ist, bzw. die Speicher- 
etc.) bestückt, dann die grö- Bank zu brennen. Der Mo- Anschließend wird das ent- kapazität der Eprom-Bank 
Beren wie Schalter etc. dulmaker beinhaltet hierzu sprechende File geladen. erschöpft ist. Sind alle 
Vor dem Test der Eprom- alle notwendigen LOAD-, Sollen mehrere Programme Brenn-Programme als 
Karte sollte man den Plati- SAVE- und Verschiebe- ins Modul gebrannt werden, Brennfile auf Disk gespei- 
nenaufbau gründlich über- Routinen. Nach Abtippen so verlangt der Modulmaker chert, so kann das Pro- 
prüfen. Zum Test steckt und Starten des Programms eine Angabe des Modulna- grammpaket durch Anwahl 
man die Karte (ohne werden verschiedene Para- mens. Dieser Name er- des Menü-Punkts „Ende“ 
Eprom!) bei ausgeschalte- meter-Angaben verlangt. scheint später in einem klei- und anschließenden RESET 
tem Rechner in den Expan- Zuerst wird gefragt, wie vie- nen Auswahlmenü, wenn getestet werden. 

sionsport. Nach einem RE- le Programme gebrannt wer- von der Karte Programme Das Brennfile auf Disk kann 
SET dürfen bei eingeschalte- den sollen. Anschließend geladen werden sollen. Der jetzt in ein Eprom des Typs 
ter Karte nur noch 30719 muß die Diskette, auf deı Auswahl-Vorgang wieder- 2764 gebrannt werden. In 
freie Bytes im Titelbild an- sich die Brenn-Programme 

gezeigt werden. Bei ausge- befinden, ins Laufwerk ge- 


schalteter Karte müssen steckt werden. Nach Drük- 
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Bild 3: Bestückungsplan. 


Bild 4a: Schaltplan der Eprom-Karte. 

ein 27128 Eprom passen 
Bänke, in ein 27256 Eprom 
4 Bänke. Das letztgenannte 
bietet mit seinen 32KByte 


- das beste Preis-/Leistungs- 
Es 330 


” 
Schaltplan = 
LED-Ansteuerung 


Verhältnis. 
Um mehrere Bänke bzw. 
Brennfiles in ein Eprom zu 
brennen, geht man wie folgt 
vor: Die einzelnen Files wer 
den mit einem Monitor an 
Bc107 die Adressen $1000, $3000, 
I ® $5000 und $7000 geladen. 
Dann wird der Bereich von 
$1000 bis $9000 (bei 4 Bän- 
ken) gespeichert und in ein 
Bild 4b: LED-Aussteuerung. Eprom mit ausreichender $ 
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—) 
ExRom 


Stückliste: 

R1—10k Widerstand 
R2—10k dito 
R3—330 Ohm dito 
R4—10k dito 
C1—100n Kondensator 


T1 BC547 0. A. NPN 
Transistor 


LED Leuchtdiode 
1 Taster (Reset) 
Ss1—53 Kippschalter 


1 Sockel 28 Pin 


108 GW Januar/88 


WA 


wel zaRıd mania nn Am, 


C= / pısıeın 


Speicherkapazität gebrannt. 
Wer keinen 
Verfügung 

beiden Programme „LINK 
27128“ (Listing 2) und 
„LINK27256“ 


verwenden. Beide Program 


Monitor zuı 


(Listing 3) 


me werden jeweils mit ‚8,1 
geladen und mit SYS 49152 
gestartet. Sie verketten meh 
rere Brennfiles zu einem ein- 
zigen. Die einzelnen Brenn- 


files müssen die Filenamen 
BANKI, BANK2 usw. ha- 
ben. 


hat, kann die 


Um  Autostart-Maschinen 
programme müssen vor dem 
Brennen speziell behandelt 
werden. Hierzu 
Programm „Masch Basic“ 
(Listing 4). Es wird ebenfalls 
mittels ‚8,1 geladen und mit 
SYS 49152 


fertige Autostart-Programm 


dient das 


gestartet. Das 


Filenamen „B 
(xXXX U 


wird mit 
XXXX“ 
name) au! 


alter File- 
Diskette gespei 


cher { . 


Oddi 

®dd3 
Odel 

Ode3 
Bdf1l 

OdfS 
Beo1 

de03 
Bell 

de13 
Be21 

Be23 
0831 

0839 
Be41 

BeH39 
OeS1 

0859 
Bel 

08693 
0871 

0879 
Ve8l 
de83 
0831 
0e33 
deal 
Bea 
debi 

BdebI 
Beci 

dec9 
Vedl 
Bed9 
Beel 
Bee3 
Berl 
Berg 
OFol 
OF83 
or1il 
oF13 
or2i 
or23 
of31 
0F39 
DF4Hi 
of493 
orsı 
or593 
OFE1 
of6s9 
of71 
0f79 
oral 

8f83 
orsı 
0f33 
Ofal 
ofa3 
OFb1 
öfb3 
Ofcı 
ofcS 
OFdi 
OFds 
Ofel 
ofe3 
OFF 
DrFS 
1001 

1003 
1011 

1019 
1021 
1823 
1831 
1039 
19041 
19049 
1851 
1059 
1061 

1863 
1071 

1073 
18081 


20,20,20,20,23,00,fe,0d, 
50,00,8F,22,23,20,20,20, 
20,20,20,20,d4,45,4c,2e, 
30,36,32,32,31,2f,33,38, 
34,39,37,37,28,20,20,20, 
20,20,20,23,00,25,8e,5a, 
00,Bf,22,23,20,20,20,20, 
20,20,20,20,28,20,20,20, 
20,20,20,290,20,20,20,20, 
20,20,20,20,20,20,20,20, 
20,20,23,00,4c,0e,63,00, 
BfF,22,2a,2a,2a,2a,2a,2a, 
Ba,2a,2a,2a,2a,2a,2a,2a, 
Ba,ca,2a,2a,2a,2da,2Da,2a, 
Ba,2a,2a,2a,2a,2a,2a,2a, 
2a,2a,00,72,0e8,6e,00,97, 
35,35,2c,30,38,97,35,36, 
2c,31,31,32,33,9c,3a,Bf, 
20,24,38,30,30,30,20,53, 
43,48,55,45,54,58,45,4e, 
00,87,0e,78,00,56,45,52, 
b2,32,36,30,30,33,49,4e, 
b2,32,30,37,35,08,b4,®e, 
82,00,44,49,52,b2,49,4e, 
883,33,3a,4c,4f,b2,44,49, 
S52,a2,33,3a,53,41,b2,4c, 
4F,83,33,38,43,4c,b2,53, 
41,aa,33,3a,53,45,b2,38, 
33,32,00,dd,0e,8c,00,37, 
35,33,32,38,30,2c,30,3a, 
37,35,33,32,38,31,2C,30, 
33,99,22,93,1e,22,3b,3a, 
39,07,68,31,33.29,C7,28, 
38,29,36,00,13,0F,96,00, 
993,22,933,20,12,20,20,20, 
20,20,20,20,20,20,20,20, 
cd,4f ,44,55,4%c,4d,41,4b, 
45,52,20,d6,32,2e,30,20, 
20,20,20,20,20,20,20,20, 
20,20,32,22,33,8d,33,31, 
30,00,38,0f,a0,00,39,22, 
11,11,11,208,20,d7,49,45, 
56,49,45,4c,208,d0,52,4F, 
47,52,41,4d,4d,45,20,53, 
4F,4c,4c,45,48,20,49,4s, 
20,44,41,53,00,60,0f,aa, 
00,939,22,28,28,cd,4F,44, 
55,40,20,49,48,54,45,47, 
52, 49,45,52,54,20,57,45, 
S2,44,45,4e,20,3f,00,88, 
OF,b4,00,99,22,11,11,11, 
20,20,cd,41,58,49,4d,41, 
4c,20,33,33,20,22,3b,3a, 
98,49,4e,2c,38,2c,31,2c, 
31,33,58,25,b2,31,00,b2, 
0f,be,808,58,b2,c2,28,5a, 
45,29,ab,34,38,33,8b,20, 
58,b1,33,28,b90,20,58,b3, 
31,20,837,20,59,22,31,31, 
31,91,22,38,89,31,38,30, 
00,c6,0f,c8,80,9e,28,56, 
45,52,20,2c,58,ab,31,3a, 
89,36,36,30,00,cc,0f,d2, 
00,32,28,d2,0Ff,dc,80,3a, 
00,e0,0f,e6,00,9e,20,43, 
4c,20c,32,380,2c,33,00,0e, 
180,F0,00,99,22,28,20,c4, 
49,53;43,20,.45,49,48.4c, 
45,47,45,4e,20,28,d2,45, 
54,55,58,48;29,20,22,3b, 
3a,Se,49,4e,2c,30,2c,30, 
2c,30,33,99,00,34,10,Fa, 
00,98,31,35,2c,22,49,30, 
22,33,84,35,35,38,3a,8b, 
£0,46,45,48,4c,45,52,b2, 
31,20,87,20,32,33,30,22, 
31,30,08,41,10,04,01,9e, 
20,43,40,2c,33,20,33,08, 
87,10,08,01,99,33,39,22, 
21531,32,73513, 12,131, 3%, 
47323:733,115135177197 37, 
11,11,11,11,20,12,20,20, 
20,d7,45,49,54,45,52,20, 
2d,20,d3,59,41,43,45,20, 
20,2f,20,27,5F,27,209,2d, 
20,c5,49,4e,47,41,42,45, 
20,32,13,22,3b,008,91,10, 


la 
c7 
ad 
E7 
fb 
B& 
6a 
[]4] 
08 
28 
ch 
6d 
08 
08 
008 
98 
9f 
44 
di 
Ec 
ad 
77 
53 
18 
fd 
39 
£4 
ıf 
ı1 
[33] 
66 
2e 
73 
e4 
dc 
00 
62 
EIS 
88 
if 
75 
3f 
5a 
be 
33 
d® 
cB 
d8 
42 
se 
dS 
a7 
24 
898 
£9 
bB 
fb 
ef 
de 
48 
af 
8c 
cb 
ef 
8b 
od 
e7 
17 
7a 
£3 
98 
89 
88 
Fr 
7e 
a5 
30 
37 
s3 
[.]%] 
08 
Be 
87 
b3 
15 
Sa 
3b 


Be ie 


=r7 


aueh . un 


1083 
1031 
1833 
19a1 
1039 
10bl 
10b9 
1®c1 
18c3 
10d1 
10d39 
10del 
10e3 
10F1 
109 
1101 
1109 
1111 
1119 
ı121 
1129 
1131 
1139 
1141 
1149 
1151 
1159 
1161 
1169 
1171 
1179 
1181 
1189 
1191 
1199 
1lal 
1la9 
11b1 
11b9 
i1c1 
11c9 
11d1 
11d9 
i1lel 
11e9 
11f1 

11F9 
ı201 

1209 
1211 

1219 
1221 

1229 
1231 

1239 
1241 

1249 
1251 

1259 
1261 

1269 
1271 

1279 
1281 

1283 
12891 

1299 
1231 

1283 
12b1 

12b9 
12c1 

12c9 
12d1 

12d3 
12el 

12e9 
ı2F1 

ı12f3 
1301 

1309 
1311 

1319 
1321 

1329 
1331 

1339 


18,01,9e,20,44,49,52,00, 
ba,10,22,01,99,22,13,11, 
11,11,20,20,d0,52,4F,47, 
52,41,4d,4e,41,4d,45,3a, 
20,22,3b,3a,9e,43,4e,2c, 
32,26,30,26,31,36, 38,89; 
09,c0,180,2c,01,Be,00,0b, 
11.365701, 9. 2, 13:1 17, 
114115117 13,18, 177 ,19731,, 
115127212517, 135, 33, 2435 
17,17,11,11, 17, 117; eB1 32, 
20,20,20,20,20,20,20,20, 
20,20,20,20,c2,59,20,ca, 
Se,d7,4f,45,54,5a,35, ic, 
20,28,20,20,20,20,20,2®, 
20,20,20,20,20,32,13,22, 
3b,08,11,11,40,01,8e,28, 
17,11,4a,01,38,00,1d,11, 
54,81,33,00,30,11,5e,01, 
98,298,43,4c,20,32,33,26, 
31,33,84,33,31,30,008,4e, 
11,68,01,99,22,13,11,11, 
11,11,20,29,c5,4e,44,41, 
44,52,45,53,53,45,38,22, 
3b,41,44,32,00,72,11,72, 
01,39,22,11,208,20,d3,49, 
43,48,45,52,4e,20,28B,4a, 
ef ,4e,29,20,22,3b,3a,9e, 
49748,26,31,20,31,26,31, 
00,8b6,11,7c,01,8b,20,c2, 
28,58,45,29,b3,b1,c6,28, 
22,483,22,29,20,87,34,31, 
30,08,b2,11,86,01,99,3a, 
99,22,11,20,20,408,52,4f, 
47,52,41,4d,4d Ye,41,4d, 
45,32,20,22,3b,3a,9e,4S, 
Ye,26,32,00,31,26;,31,35, 
20,d8,11,90,01,9e,20,53, 
41,3a,9e,43,4c,26,32,0c, 
39,3a,8d,35,35,30,3a,8b, 
20,46,45,48,4c,45,52,b2, 
31,27,20,34,30,30,00,Fb, 
11,93,01,99,33,99,22,11, 
20,20,c5,4e,44,45,20,28, 
Na,ef,4e,29,20,22,3b,3a, 
Se,49,4e,2c,31,2c,31,2c, 
31,800,13,12,a4,01,8b,20, 
c2,28,58,45,29,b2,c6,28, 
22,4a,22,29,20,37,34,34, 
30,00,1b,12,ae,01,8a,31, 
30,00,58,12,b8,01,399,3a, 
99,22,11,11,28,209,cd,4f, 
44,55,40,20,53,54,45,48, 
54,20,41,42,20,24,38,30, 
30,30,20,49,4d,20,d2,c1, 
cd,22,32,99,22,11,20,28, 
d4,45,53,54,29,4d,49,54, 
20,d2,45,53,45,54, 28,22, 
00,70,12,c2,01,a0,31,35, 
3a,97,34,33,2c,31,38,97, 
34,34,2c,38,33,808,00,76, 
12,cc,01,38,00,7c,12,d6, 
81,383,00,97,12,e0,01,41, 
44.,62,32,35,36,a6,c2,28, 
38,33,31,29,aa,c2,28,38, 
33,39,29,38,8e,00,3d4,12, 
ea,801,38,00,a3,12,f4,01l, 
3a,00,db,12,fe,01,39e,43, 
40,20,32,30,26,32,38,39, 
22,20,20,d0,52,4F,47,52, 
41,4d,4d,20,53,55,28,4c, 
41,4e,47,20,28,d2,45,54, 
55,52,4e,29,20,22,3b,3a, 
9e,49,4e,2c,30,2c,38,2c, 
38,28,e4,12,08,02,89,31, 
31,30,08,ea,12,12,02,3a, 
00,f0,12,1c,02,32,00,1b, 
13,26,02,84,31,35,2c,46, 
31,24,20,46,32,24,38,99, 
3a,99,22,20,20,12,20,22, 
3b,46,31,24,3b,22,28,22, 
3b,46,32,24,3b,22,20,32, 
22,09,41,13,30,02,8b,20, 
46,32,24,b2,22,4f ,4b,22, 
a7,20,81,51,b2,30,a4,35, 
39,30,33,82,3a,46,45,48B, 
4c,45,52,b2,30,3a,88e,00, 


e2 
43 
86 
or 


da 
a5 
=] 
bd 
4b 
fa 
62 
87 
7E 
E13 
ed 
b5S 
Ye 
a2 
bo 
13 
aa 
eB 
83 
a7 
aa 
2b 


g 1341 


1349 
1351 
1359 
1361 
1369 
1371 
1379 
1381 
1389 
1391 
1339 
13a1 
1389 
13b1 
13b9 
13c1 
13c9 
13d1 
13d9 
13e1l 
13e3 
ı13f1 
13F9 
14981 
1409 
ı411 
1419 
1421 
1429 
1431 
1439 
1441 
1449 
1451 
1459 
1461 
1469 
1471 
1479 
1481 
1483 
1491 
1499 
14al 
14a9 
14b1 
14b9 
14c1 
14c9 
14d1 
14d9 
14el 
14e3 
ı14F1 
14£9 
1501 
1599 
1511 
1519 
1521 
1529 
1531 
1539 
1541 
1549 
1551 
1559 
1561 
1569 
1571 
1579 
1581 
1583 
1591 
1599 
1531 
1539 
15b1 
15b9 
15c1 
15c9 
15d1 
1549 
15el 
ı15e9 
ı5F1 


Se,13,38,02,46,45,48,4c, 
45 ,52,02,31538;87,31;,39, 
38,2c,30,33,92,31,39,38, 
2c,31,3a,8e,00,64,13,44, 
02,32,00,63,13,4e,02,3a, 
00,72,13,58,02,59,b2,30, 
00,83,13,62,02,5a,b2,c2, 
28,53,45,33,59,29,3a,8b, 
20,53,b2,30,20,a7,20,Be, 
08,a1,13,6c,02,97,4d,4e, 
a3,59,2c,5a4,33,59,b2,59, 
a3,31,33,89,36,31,30,00, 
ce,13,76,02,98,43,4c,2c, 
32,30,20,33,33,99,3a,99, 
22,20,cd,4f,44,55,4c,4e, 
41,4d,45,3a,20,22,3b,3a, 
Se ,43,4e,20,32,2c,31,@c, 
31,36,34,88e,98,d4,13,80, 
02,32,00,da,13,8a,02,3a, 
80,Fc,13,94,02,80,31,35, 
3a,9f, 31735; 26, 38;26;31, 
35,33,91,20,58,20,89,36, 
37,30,2c,37,33,38,2c,38, 
36,30,00,15,14,98,02,8d, 
32,33,30,33,8b,20,c2,28, 
5a,45,29,b2,30,20,37,20, 
36,37,30,00,37,14,a8,02, 
Se,4c,4f,20,33,32,38,37, 
37,38,84,35,35,30,3a,8b, 
29,46,45,48,40,45,52,be, 
31,a7,36,37,30,00,51,14, 
b2,02,84,34,38,30,3a,8b, 
29,41,44,b1,34,30,39,35, 
393,20,37,28,35,31,30,90, 
Sa,14,bc,02,89,33,35,38, 
00,69,14,c6,02,3a,80,66, 
14,d0,02,33,00,7e,14,da, 
02,84,32,33,30,32,8b,20, 
c2,28,53,45,29,b2,30,2®, 
37,37,33,38,00,a2,14,e4, 
02,9e,208,4c,4f,2c,33,32, 
39,38,39,33,8d4,35,35,3®, 
33,8b,29,46,45,48,4c0,45, 
52,b2,31,28,a7,37,33,3®, 
00,c8,14,ee,02,97,33,32, 
38,36,36,2c,c2,28,38,33, 
30,29,38,97,33,32,38,37, 
30,2c,c2,28,38,33,31,29, 
20,33,84,34,38,390,00,di, 
14,f8,02,84,36,33,390,00, 
e3,14,02,03,4d,4e,b2,33, 
32,39,34,33,33,8d,36,30, 
39,00,fb,14,2c,03,8d,32, 
33,30,32,8b,20,c2,28,5a, 
45,29,b2,390,20,87,37,38, 
39,00,1c,15,16,03,9e,20, 
4c,4f,2c,41,44,38,8d,35, 
35,30,38,86,20,46,45,48, 
40,35,90,DE,31,20,87,37, 
38,30,08,25,15,20,03,8d, 
36,33,30,08,37,15,2a,03, 
4d,48,b2,33,32,39,37,30, 
33,8d,36,30,380,00,51,15, 
34,03,8d,34,38,30,3a,8b, 
20,41,44,b1,34,30,39,35, 
39,20,37,20,35,31,30,00, 
5a,15,3e,803,89,33,35,39, 
00,60,15,48,03,33,00,66, 
15,52,03,3a,00,78,15,5c, 
03,64,32,33,30,33,8b,2®, 
c2,28,53,45,29,b2,30,20, 
a7,38,36,30,00,a2,15,66, 
03,98,20,4c,4f,20,33,33, 
30,34,32,38,8d4,35,35,3®, 
33,8b,28,46,45,48,4c,45, 
S2,b2,31,20,a7,38,36,30, 
00,c8,15,70,03,37,33,32, 
38,37,30,20,c2,28,38,33, 
30,29,33,37,33,32,38,37, 
34,20,c2,28,38,33,31,29, 
29,33,84,34,38,30,00,d1, 
15,72,03,84,36,33,30,0®, 
e3,15,84,03,4d,4e,b2,33, 
32,39,36,37,32,8d,36,30, 
39,00,£b,15,88,03,8d,32, 
33,380,38,8b,28,c2,28,5a, 
45,29,b2,30,20,a7,39,31, 


Januar/88 Up 109 


- 


15£9 
1601 
1609 
1611 
1619 
1621 
1628 
1631 
1639 
1641 
1649 
1651 
1659 
1661 
1669 
1671 
1679 
1681 
1683 
1691 
1699 
16a1 
1689 
16b1 
1669 
16c1 
16c3 
16d1 


380,00,1c,16,98,03,9e,20, 
“c,4f,2c,41,44,38,8d,35, 
35,30,33,8b,20,46,45,48, 
4c,45,52,b2,31,20,87,38, 
31,30,00,25,16,a2,03,8d, 
36,33,30,00,37,16,ac,03, 
“d,4e,b2,33,32,39,39,36, 
3a,8d,36,30,30,00,5d,16, 
b6,03,97,33,32,38,39,30, 
2c,c2,28,38,33,30,29,3a, 
97,33,32,38,39,34,2c,c2, 
28,38,33,31,29,20,3a,Bd, 
34,38,30,00,75,16,c0,03, 
8d4,32,33,30,3a,Bb,20,c2, 
28,53,45,29,b2,30,20,a7, 
393,36,30,00,96,16,ca,03, 
98,209,4c,4f 20,41,44,3a, 
8d4,35,35,30,3a,8b,20,46, 
45;48,M0,45,52:,b2,31,290, 
a7,39,36,30,00,9F,16,d4, 
03,84,36,33,30,08,b1,16, 
de,03,4d,4e,b2,33,33, 30, 
32,35,33,8d4,36,30,30,00, 
cb,16,2e8,03,8d4,34,38,30, 
3a,8b,20,41,44,b1,34,30, 
39,35,39,20,a7,20,35,31, 
30,00,d4,16,F2,03,89,33, 
35,30,00,00,00,00,00,00, 


Hex-Listing MPRG wird gestartet und danach 
Listing 5 eingegeben. 


c008 
c008 
c0818 
ced18 
c028 
c028 
c030 
c038 
c040 
c04B 
c050 
c058B 
c068 
c068 
c078 
c078 
c080 
c888 
c039 
c098 
c0a0 
cDdaB 
c0bO 
c0b8 
c0c® 
c0cB 
c0dß 
c0d8 
cded 
c0e8B 
cof® 
cof8 
c100 
c108 
c110 
cell 
c120 
c128 
c130 
c138 
c140 
c148 
c150 
c158 
c1l68 
c168 
c170 
c178 
c188 
c188 
c190 
c198 
cla® 
claß 
c1b® 


we 


4c,le,c2,08,0e,53,9b,28, 
c2,59,20,ca,2e,d?,4f,45, 
54,58,45,4c,29,0d,11,c5, 
58,52,4f ,4d4,4d,41,4b,45, 
52,20,d6,31,2e,32,0d,2d, 
2d,2d,2d,2d,2d,2d,2d,2d, 
2d,2d,2d,2d,2d,2d,0d,11, 
c4,49,45,53,45,53,20,d0, 
S2,47,2e,20,48,4f,48,4c, 
54,20,53,49,43,48,20,4e, 
41,43,48,45,49,4e,41,4e, 
44,45,52,20,32,0d,c2,45, 
54,52,49,45,.42,53,53,59, 
53,54,45,49,35,20,4F,4%, 
45,52,20,32,20,c6,49,4c, 
45,53,20,44,49,45,20,4d, 
49,54,0d,44,45,4d,20,22, 
cd,4f,44,55,Y4c,4d,41,4b, 
9,02,02,20,.49,56.53:54; 
45,40,46,54,82,57,4F,52, 
44 ,45,4e,20,53,49,4e,44, 
04,56,4f ,4e,20,c4,49,53, 
4b,45,54,54,45,2e,0d,cH, 
41,4e,41,43,48,20,53,54, 
45,48,45,4e,20,44,49,45, 
20,c6,49,4c,45,53,20,c5, 
s9,52,4F,44,47,45,52,45, 
43,48,54,0d,49,4e,29,38, 
cb,2d,c2,41,4e,4b,53,20, 
49,4d,20,d3,50,45,49,43, 
48,45,52,20,28,24,31,30, 
30,30,2d,24,35,30,30,30, 
29,2e,0d,ce,55,4e, 20,57, 
49,52,44,20,44,45,52,208, 
c2,45,52,45,49,43,48,20, 
24,31,30,30,30,2d,24,35, 
30,30,30,20,55,4e,54,45, 
52,0d,44,45,4d,28,ce, 41, 
4d,45,4e,20,22,c5,d0,d2, 
ef,cd,02,28,41,42,497,95, 
53,580,45,49,43,48,45,52, 
54,28,0d,11,c1,c3,c8,d4, 
d5,ce,c7,20,21,0d,2d,2d, 
2d,2d,2d,2d,2d,0d,11,c5, 
53,20,44,55,45,53,53,45, 
4e,20,53,49,43,48,20,32, 
20,c6,49,4c,45,53,20,4d, 
49,54,20,44,45,4e,20,c6, 
49,40,45,2d,0d,“4e,41,4d, 
45 ,48,28,c2,c1,ce,cb, 31, 
20,55,4e,44,20,c2,ci,ce, 
cb,32,28,41,55,46,20,44, 
45,58,28,0c4,49,4b,45,54, 
54,45,20,0d,c2,45,46,49, 
Ye ,44,45 ,4e,20,41,55,53, 


Januar/88 
PIT-P FRE TR 


d& 
21 
5b 
12 
b3 
1616) 
fc 
af 
de 
ob 
ef 
d2 
ef 
27 
39 
a6 
bS 
62 
e7 
b7 
41 
ob 
66 
18 
d4 
a5 
of 
25 
54 
Sb 
3a 
de 
ob 
4c 
b8ö 
e5 
26 
Ed 
gı 
05 
ed 
14 
c2 
6c 
2b 
ei 
id 
23 
c8 
e2 
87 
63 
3E 
Sc 
ee 


c1lb8 
c1c® 
cicB 
c1ld® 
c1d8 
cleßd 
cleB 
c1fd 
c1if8 
c200 
c208 
c218 
c218 
c2208 
c228 
c230 
c238 
c248 
c248 
c250 
c258 
c260 
c268 
c278 
c278 
c280 
c288 
c290 
c238 
c2ad 
c2a8 
c2b® 


53,45, 92,473,35,44,20 ,4d; 
55,53,53,20,4e,4f,43,48, 
20,d0,4c,41,54,5a,20,46, 
55,49, 38, 094,43 ,41753, 89; 
c6,49,4c,45,20,c5,d0,d2, 
ef,cd,20,53,45,49,4e,20, 
28,31,33,30,29,c2,4c,4f, 
43,4b,53,21,29,2e8,0d,11, 
61,46, 40,45753, 283, ch,46, 
41,52,20,3f,20,28,d2,45, 
54,55,528,4a,29,12,20,32, 
94,00,00,30,50,79,42,41, 
Ye,4b,31,45,50,52,4f,4d, 
a9,08,8d,12,c2,a9,10,8d, 
79,c2,a9,31,8d,l1a,c2,a9, 
c0,8d4,45,c2,a9,00,84,20, 
do,8d,21,d0,a9,05,8d4,86, 
02,82,00,6d4,03,c®,f®,0F, 
20,d2,ff,e8,F0,03,4c,43, 
c2,ee,45,c2,4c,43,c2,ea, 
20,e4,fFf,c9,0d,d0,f9,a9, 
93,20,d2,ff,a2,08,30,00, 
20,ba,ff,a9,05,a2,16,a0, 
c2,20,bd,ff,a9,00,82,00, 
a0,10,20,d5,ff,ee,la,c2, 
ad,la,c2,c9,35,F0,0F,ae, 
12,c2,bd,13,c2,ee,12,c2, 
8d4,79,c2,4c,64,c2,a9,08, 
85,fb,39,10,85,fc,a2,08, 
20,ba,ff,a9,05,a2,1b,a®, 
c2,20,bd,ff,a9,fb,a2,00, 
a8,90,4c,d8,fFf,00,00,00, 


Listing 2: LINK 27128 


c0008 
c008 
c010 
c018 
c020 
c028 
c030 
c038 
c040 
co4H8 
c050 
c058 
c0608 
c068 
c078 
c078 
c080 
c088 
c039 
c038 
cda® 
cdaB 
c0b8 
c0b8 
c8cd 
c08c8 
c0d0 
c0d8 
cdeO 
c0deB 
cofo 
cof8 
c108 
c108 
c118 
c118 
c1208 
c128 
c13® 
c138 
c148 
c148 
c159 
c158 
c1608 
c168 
c170 
c178 
c188 
c188 
c158 


4c,20,c2,08,0e,93,9b,28, 
c2,59,208,ca,2e,d7,4Ff,45, 
54,58,45,40,29,0d,11,c5$, 
50,52,4f,4d,4d,41,4b,45, 
52,20,d6,31,2e,32,0d,2d, 
2d,2d,2d,2d,2d,2d,2d,2d, 
ed,2d,2d,2d,2d,2d,0d,11, 
o4,43,45)53,45,53,20,48, 
52,47,28,20,48,4f,4B,4c, 
54,20,53,49,43,48,20,4e, 
41,43,48,45,49,4e,41,4e, 
44 ,45,52,20,34,0d,c2,45S, 
54,52,49,45 ;u32,53,53,39, 
53,54,45,44,45, 28,4 ,14, 
45,52,20,34,20,c6,49,4c, 
45,53,20,44,49,45,20,4d, 
49,54,0d4,44,45,4d,20,22, 
cd,4f,44,55,4c,4d,41,4b, 
45,52,22,20,45,52,53,54, 
45,40,40,54,20,57,40,52, 
44,45 ,4e,20,53,49,4e,44, 
04,56,4f,4e,20,c4,49,53, 
4b,45,54,54,45,2e,0d,cH, 
41,48,41,43,48,29,53,54, 
45,48,45,48,298,44,49,45, 
29,c6,39,40,45,53,20,c5, 
0 ,326,46,:4Q,47.35,52.48, 
43,48,54,0d,49,4e,20,38, 
cb,2d,c2,41,4e,4b,53,20, 
49,4d,20,d3,50,45,49,43, 
48,45,52,20,28,24,31,30, 
30,30,2d,24,39,30,30,30, 
29,2e,0d,ce,55,4e,20,57, 
45,52,44,28,44,45,50,€0, 
ce ,49,98.,45,33.43, 38,080; 
24,31,30,30,30,2d,24,39, 
30,30,30,20,55,4e,54,45, 
52,0d4,44,45,4d,20,ce,41, 
4d,45,4e,20,22,c05,d0,d2, 
OF ,09,28,09,21:92,47,435, 
53,59, 45; 49.43; 30,35,88, 
54,00,09;,713,01,03,c8,d‘, 
dS,ce,c7,28,21,0d,2d,2d, 
2d,2d,2d,2d,2d,0d,11,c5, 
53,28,44,55,45,53,53,45, 
4e,20,53,49,43,48,20,34, 
20,c6,49,4c,45,53,20,4d, 
49,54,20,44,45,4e,20,c6, 
49,4c,45,2d,8d,4e,41,4d, 
45,4e,28,c2,cl,ce,cb,31, 
2c,c2,c1,ce,cb,32,2c,2e, 


cı98 
c1la® 
c1a8B 
c1b® 
c1b8 
c1c® 
elcB 
c1d® 
c1ld8 
cle®d 
cle8 
cı1fo 
c1fB8 
c200 
c208 
c210 
c218 
c220 
c228 
c230 
c238 
c240 
c248B 
c259 
c258 
c268 
c268 
c270 
c278 
c280 
c288 
c2S0 
c298 
c2a® 
c2a8 
c2b8 


2e,28,55,53,57,2e,20,“41, 
55,46,20,44,45,52,20,c4, 
49,53,43,0d,c2,45,46,49, 
48,44, 4573872cC,41,55,53, 
53,45,52,44,45,4d,20,4d, 
55,53,53,20,4e,4f,43,48, 
29,d0,4c,41,54,58,20,46, 
55,45,52,04,44,41,53,20, 
c6,49,4c,45,20,c5,d0,d2, 
cf,cd,20,53,45,49,4e,20, 
28,36,35,208,c2,4c,4f,43, 
4b,53,21,29,20,28,0d,11, 
e1.,40,46,45,53,29,cb.NG, 
41,52,20,3£,20,28,d2,45, 
54,55,52,48,893,12,20,32, 
Sd,00,00,30,42,41,4e,4b, 
31,45,50,52,4f,4d,a9,00, 
8d,12,c2,39,10,84,77,c2, 
a9,31,84,18,c2,a9,c0,8d, 
43,c2,39,00,8d4,20,d0,8d, 
21,d0,a9,05,8d4,86,02,a2, 
00,6d,03,c0,F0,0f,20,d2, 
ff,e8,f8,03,4c,41,c2,ee, 
43,c2,4c,41,c2,ea,20,e4, 
ff,c9,0d,d0,F9,a9,93,20, 
d2,ff,a2,08,30,00,20,ba, 
ff,a9,05,a2,14,80,c2,20, 
bd,ff,a9,00,a2,00,a0,10, 
20,d5,ff,ee,18,c2,ad,18, 
c2,c9,33,f0,0F,ae,12,c2, 
bd,13,c2,ee,12,c2,8d,77, 
c2,40,62,c2,89,00,85,Fb, 
a9,10,85,fc,a2,08,20,ba, 
ff,a9,05,82,19,a0,c2,20, 
bd,ff,a9,fb,a2,00,a0,50, 
4c,d8,Ff,00,00,00,00,00, 


Listing 3: LINK 27256 


c008 
c008 
c010 
c018 
c028 
c028 
c838 
c038 
c0840 
co4B 
c08508 
c058 
c068 
c068 
c070 
c078 
c080 
cBB8 
c838 
c038 
cda®d 
cdaB 
c0ßb® 
cO8b8 
c08cd 
cdc8 
c8d0 
c0d8 
cded 
cde8 
cof® 
cof8 
c100 
c108 
c11® 
c118 
c128 
c128 
c13® 
c138 
c14® 
c148 
c158 
c158 
c160 
c168 
c178 


4c,39,c0,0b,08,c3,07,9e, 
32,30,36,31,00,00,00,a9, 
38,85,fb,39,08,85,fc,a9, 
00,85,fd,a9,00,85,fe,a2, 
00,80,00,b1,fb,91,Ffd,c6, 
d®,f9,e6,fc,e6,fe,ca,d®, 
f2,a2,00,£0,08,b1,Ffb,31, 
fd,c8,ca,d0d,f8,4c,20,00, 
0d,46,49,4c,45,4e,41,4d, 
45,33,00,04,42,59,54,45, 
4c.,41,45,4e,47,45,3a,208, 
20,20,24,00,84,53,54,41, 
52,54,41,44,52,45,53,53, 
45,33,20,24,00,94,94,3d, 
9d,28,04,0d,2d,3£,45,49, 
4a,ı7 41 ,40,49,48 4,40 
4c,45,52,00,30,31,32,33, 
34,38, 38:37 ,.38,39 41,907 
43,44,45,46,00,00,00,42, 
2f,00,00,00,00,08,00,00, 
00,00,00,00,00,00,00,00, 
00,30,3d,a2,00,bd,03,c0, 
9d,01,08,e8,88,d0,Ff6,a9, 
40,80,c0,20,l1e,ab,20,bS5, 
c1,84,b7,80,94,c0,a2,00, 
bd,40,03,9d4,99,cd,ed,ec, 
94,c0,d0d,f4,ee,34,c0,ee, 
94,c0,a9,48,85,bb,a9,03, 
85,bc,a9,01,85,b8,39,08, 
85,ba,a9,00,85,b9,20,c®, 
Ff,a2,01,20,c6,ff,20,e4, 
ff,8d4,16,08,20,e4,ff,8d, 
1a,08,20,cc,ff,a9,01,20, 
c3,ff,a2,08,a0,00,20,ba, 
Ff,a9,00,22,3e,a0,08,20, 
dS,ff,8e,95,c0,8c,96,c0, 
38,ad,95,c0,e9,3e,8d,30, 
08,ad,96,c0,e3,08,8d,le, 
08,a9,4b,a0,c0,20,1e,ab, 
ad,1e,08,20,c7,c1,ad,3®, 
08,28,c7,c1,a9,5c0,30,c®, 
20,le,ab,ad,1a,08,20,c7, 
c1,ad,16,08,20,c07,c1,a9, 
6d,a0,c0,20,1e,ab,20,b5, 
c1,ad,40,03,20,d9,c1,0a, 
0a,02,03,8d,3d,08,ad,“41, 
03,28,d9,c1,8d,3d,08,8d, 


da 
3b 
a6 
ee 
e7 
ef 
39 
8b 
dd 
£9 
83 
df 
ed 
55 
a8 
7ı 
95 
cc 
38 
ds 
S5d 
b6 
ed 
al 
36 
72 
do 
98 
48 
ef 
eu 
48 
e2 
ds 
Se 
73 


c178 3d,08,ad,42,03,20,d9,c1, 
c180 03,03,03,0a,8d,3c,08,ad, 
c188 43,03,20,d9,c1,0d,3c,08, 
c138 
c198 
cla® 
claß 
c1b® 
clb8 
c1lc® 
cic8 
c1d® 
c1ld8 
cled 
cle8 
c1f® 


SEN 2 u 
a £ wm 
© © :8 :© 


> 
s 


9a 
ac 
6f 
7e 
80 
ce 
99 
Ba 
ch 
22 
a7 
45 
ec 
db 
40 
ds 


8d,3c,08,a9,01,85,fb,aS, 
08,85, Fc,a2,08,20,ba,ff, 
ad,S4,c0,a2,97,20,c0,20, 
bd,ff,aS,Fb,ae,95,c0,ac, 
96,c0,4c,d8,ff,a0,00,20, 
ef,ff,c9,0d,f0,08,399,40, 
03,c8,4c,b7,c1,88,60,48, 
Ya,4a,4a,4a,20,d2,c1,68, 
29,0Ff,aa,bd,84,c0,4c,d2, 
Ff,a2,00,dd,84,c0,f®,08, 
e8,e0,10,10,05,4c,db,ci, 
82,60,68,68,39,72,30,c®, 
4c,le,ab,00,00,00,00,00, 


MASCH- »BASIC 


rem poke43,1:poke44,B:rem bas 


icreset 
rem "Presse ss 000u 00er 


.... 
rem "* 


Geschrieben von J.Woetzel 
Boxbergring 2 


6908 Heidelberg 


Tel .086221/384377 


rem "® 
“ 


rem 
.... 
poke 55,8:poke S6,112:clr 
088 schuetzen J1672 
ver=2608: in=2075 Jı525 
dir=-in+3: lo-dir+3:sa-lo+3:c1l=-sa+ 
3: ze-832 33785 
poke 53280,9:poke 53281,08:print * 
Celr,grn]";:print chr$ (14) chr$ 
(8); 33408 
print "[clr] [Crvs,lispaces) 
Modulmaker V2.0C5spaces, 
shift-space  Sspaces, off]":gosub 
3190 33773 
print "[3down, 2Zspaces)Wieviel 
Programme sollen in das 136456 
print "C2spaces]Modul integriert 
werden ? 13079 
print "C3down, 2spaces)Maximal 3: 
”";:5ys in,8,1,1:x%=1 13561 
x-peek (ze)-4B:if x>3 or x<1 then 
print "C[4up)”:goto 188 33574 
sys ver,x-l:goto 668 31561 


anseninsaunnenenenenneeennen 


:rem $8 


sys c1,20,3 1643 
print "C[2spaces]Disc einlegen 
(Return) ";:sys in,8,8,8:print 
34367 
print#15,”"id”:gasub SS®:if fehler 
=] then 230”10 J2554 
sys cl,3,3 J826 
print :print "[28down] [rvs, 
3spaces]Weiter - Spacel2spaces)/ 
- Eingabe Coff,home)”; 15079 
sys dir 3477 
print "Chome , 3down, 2spaces] 
Programname: ";:sys in,2,08,16: 
print 13205 
return Jıy2 
print "Chome, 24down) [rvs, 
l2spaces]By J.Woetzel[ll3spaces, 
off,home)]”; 234514 
return J142 


ı.' 


sys cl,23,1:gosub 318 
print "Chome  4douwn, 2spaces) 
Endadresse: ";ad: 
print "Cdown, 2spaces)]Sichern 
(J/mM) ";:sys in,1,1,1 12931 
if peek (ze)<>asc (”jJ") then 419 
22186 
:print "[down, 2spaces] 
";:5y5 in,2,1,16 
32882 
Sys sa:sys cl,2,9:gosub 550: if 
fehler-1 then 408 33117 
print :print "[Cdown, 2spaces]Ende 
tj/n) ";:5ys in,1,1,1 312964 


231167 


22084 


print 
Programmname: 


Modulmaker-Basic-Listing 


TEE TER N 


MET 


like 


t 
u 


Ä 
h 


hen 


RATE: 


420 


440 


BAOTELN 


if peek (ze)-asc ("5") then 440 
11677 
run 18 3428 
print :print "[2down, 2spaces) 
Modul steht ab $8000 im RAM": 
print "Cdown, 2spaces]Test mit 
Reset." 234926 
close 15:poke 43,1:poke 44,8:end 
31951 


ad-256*peek (831)+peek (830): 
return 12684 


sys c1,208,2:print "[C2spaces] 


Programm zu lang (Return) ";:sys 
in,8,2,0 24376 
1568 


goto 118 


input#15,F1$,f2$:print :print " 
Cöspaces,rvs] ";F1$;" ";F2$;" 
toff)]” 33175 
if F2$="ok" then For q=® to 588: 
next :Fehler-®:return 13043 
fehler=-1:poke 198,0:wait 198,1: 


return 12738 
yo 3382 
z=-peek (ze+y):if z=®d then return 
11708 
poke mn+y,z:y=y+l:goto 6198 11644 
sys cl,28,3:print :print "” 
Modulname: ";:s5ys in,2,1,16: 
214857 


return 


close 15:open 15,8,15:on x goto 
670,730,860 13965 
gosub 230: if peek (ze)-® then 678 
212178 
sys 10,32877:gosub 550:if fehler- 
1 then 678 33025 
gosub 480:iF ad>49959 then 518 
32316 


goto 358 1580 


gosub 230:if pesk (ze)-® then 730 

122408 
sys 10,32989:gosub 550:if Fehler- 
i then 7308 32959 
poke 32866, peek (830):poke 32878, 


peek (B31):gosub 480 13876 
gosub 638 1582 
mn=32343:gosub 608 Jı261 


gosub 238:if peek (ze)=® then 788 
32115 
sys lo,ad:gosub 550: if Fehler-1 


then 780 13085 
gosub 630 1582 
mn=32972:gosub 500 11325 


gosub 488:if ad>40959 then 510 
12316 


goto 358 3588 


gosub 230:if peek (ze)-® then B60 

11923 
sys 10,33042:gosub 558:iFf Fehler=- 
l then B69 12921 
poke 32878,peek (830):poke 32874, 


peek (B3l):gosub 488 13732 
gosub 638 1582 
mn=32967:gosub 6008 11391 


gosub 230:if peak (ze)-® then 918 
32112 
sys lo,ad:gosub S5®:if fehler-1 


then 318 139982 
gosub 639 1582 
mn=32996:gosub 608 11200 


poke 32830, peek (830):poke 32894, 
peek (B831):gosub 4808 233772 
gosub 230:ifF peek (ze)=-B then 369 
31987 
sys lo,ad:gosub 55®:if Fehler-1 


then 969 232877 
gosub 6398 1582 
mn=33025:gosub 608 11372 


gosub 480:if ad>40959 then 510 
12316 


goto 359 1588 


Wer seinen Personal Computer 
professionell nutzen will, sollte 
die Leistung des Rechners nicht 
blindlings vergeuden: Integra- 
tion statt Insellösung! Und so 
wird’s gemacht: 


ist ein Leitfaden 
zum wirtschaftli- 
chen Einsatz von 
Mikros in Produk- 
ten und Verfahren. 


Bestell-Nr.: CW M1$-2, Preis: DM 111,- 


Enginee- _ 

ring in der 
Praxis. Das 
Bertelsmann 7 
Modell: Auch 
wer für Mikros 
oder PC Program- 
me schreibt, braucht die Disziplin des 
Software-Engineers. 


Bestell-Nr.: CW B09-5, Preis: DM 118, - 


oO 


Software- 


Ich bestelle ___ Ex. Mikro-Elektronik für Führungskräfte 


_—— Ex. Software-Engineering in der Praxis 


Lieferanschrift (zugleich Rechnungsanschrift*) 


Name Vomame 
rg ae H 
a en s = 
PLZ On Unesscht 


“Bestellungen aus dem Ausland werden nur gegen 
Vorauskasse erledigt 


CW € -Edition, Rheinstraße 28, 8000 München 40 


= psrein 


DOPPELFLOPPER-SCHALTUNG 


FÜR 1541 


Am 664 lassen sich gleichzeitig mehrere Disk-Laufwerke anschließen. 


Die wenigsten Anwendungsprogramme unterstützen 
jedoch Mehr-Floppy-Betrieb. 


Doppelflopper macht dem ein Ende: Zwei Laufwerke werden in eine 


ie Vorteile 


einer Dop- 
pelfloppy sind 
bekannt: Auf 


beide Laufwerke kann belie- 
big zugegriffen werden. Der 
Anschluß von zwei getrenn- 
ten 1541-Laufwerken am 
C64 dagegen, bringt ein 
Problem mit sich: Die zweite 
Floppy ist nicht Laufwerk 1 
des Gerätes 8, sondern 
Laufwerk 0 mit Geräte- 
nummer 9. Ein Ansprechen 
des zweiten Laufwerks mit- 
tels „l:Filename“ ist nicht 
möglich — Floppy 1 meldet 
in diesem Fall einen „Drive 
not ready — ERROR“. Die 
Auswahl des Laufwerks, das 
angesprochen werden soll, 
findet beim OPEN-Befehl 
über die Geräteadresse statt. 
Hierzu bieten die wenigsten 
Programme eine entspre- 
chende Option. 

Schauen wir uns einmal an, 
welche Möglichkeiten sich 
bieten, dennoch auf zwei 
Floppies wahlweise zugrei- 
fen zu können: 

Da wäre der Anschluß eines 
zweiten Laufwerks (ohne 
Steuerplatine), bei gleichzei- 
tiger Änderung des Floppy- 
Betriebssystems denkbar. 
Schließlich handelt es sich 
beim 1541-Betriebssystem 
lediglich um eine modifizier- 
te Version des ROMs der 


112 Januar/88 
er NE N 


Quasi-Doppelfloppy verwandelt. 


Floppy II 


DEU NMI NMI DEU 


Bild 1: Der Schaltplan. 


Bild 2: Der Aufbauplan. 


Commodore-Doppel-Floppy 
4040 (Im Bereich $F2CD bis 
$F2D7 wird die Angabe „1:“ 
durch Ausgabe der Error- 
Meldung 74 abgefangen). 
Von einer Änderung des 
Floppy-Betriebssystems ist 
jedoch abzuraten, da dies 
Kompatibilitäts-Probleme 
mit sich bringt. 

Denkbar ist eine Software- 
Lösung, bei der im Rechner 
„l:“ abgefangen, und dann 
als „O:“ zu Adresse 9 ge- 
schickt wird. Hierbei erge- 
ben sich jedoch zwei Nach- 
teile: Zum einen muß die 
Software nach jedem Ein- 
schalten neu geladen werden 
und zum andern treten auch 
hier erhebliche Kompatibili- 
täts-Probleme auf. 

Ein Anschluß von zwei 
Floppies mit eingestellter 
Adresse 8 ist ebenfalls un- 
sinnig, da dann beide gleich- 
zeitig versuchen Daten zu 
senden und folglich ein heil- 
losess Durcheinander ent- 
steht. 

All diese Nachteile vermei- 
det „Doppelflopper“ — eine 
kleine Hardware-Schaltung, 
die es erlaubt, per Tasten- 
druck jeweils ein Laufwerk 
als Geräteadresse 8 zu initia- 
lisieren. 

„Doppelflopper“ ist kompa- 
tibel zu jeglicher Software, 
Floppy-Speedern etc. 


DIESE SEITE FEPILT 
LEIDER 


DIESE SEITE FEPILT 
LEIDER 
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DIESE SEITE FEPILT 
LEIDER 


JC-TESTER zu verkaufen, testet über 
100 der gebräuchl. TTL ICs Preis 
inkl. Software 80 DM. Info A. Klotz, 
Tel. 071 41/2 74 33 


wies, Bergfeldstr. 37, 3000 Hannover 
91, 05 11/4698 17 VB 45.— DM mit 
Datenblatt 400x 64 Punkte 


Verkaufe: PC 128+ 1570+Drucker 

(MPS-Komp.) + 300 Programme + 

Joysticks + Datasette + Literatur 

(Data-Becker, RUN). Preis VB. Suche 

billig Amiga 500 + TV-Modulator 

en Robin Koepf, 0 73 31/4 02 23 ab 
hr 


RUN, Hopp Comp. ..) + Reset + Di- 
B-Bücher + 2 Joyst...C. 

Siegert, Leharstr. 62, 2000 Hamburg 

73, 040/6780965, neu: 3500-Preis VB 


84 30 65 


7 Magazine + Geos + 70 beidseitig 
bespielte Disketten + viele Originale 
Topgames und das alles nur für 
950.— Anfrage an Goran Markovill, 
Tel. 0 74 62/5 78 


Umbau auf 64 KByte für 100 DM für 
C16/C116 mit Austausch der RAMs 
in | Tag, Reparaturen in | Woche, Er- 
satzteile billig, Zubehör reichlich. 
Uwe Peters, 2351 Trappenkamp, 
Tannenweg 9 


Schulverwaltung mit C64/PC 128! 
SS-Datei, Notenverw., Zeugnis., Prak- 
tikum, BJS. Info gegen Rückporto bei 
W. Müting, Siemensstr, 4, 4780 Lipp- 
stadt, Tel. 029 41/1 02 25 


Hallo Amiga-User! Hat auch Dein 
Amiga Softwarehunger, Dann melde 
Dich mal mit frank. Rückumschlag 
bei Green-Soft, Postfach 13 42, 4054 
Nettetal 1 


Bewährte An 

Kontokontrol für C64, Terminkalen- 
der für C64, Paetsch, Atenser-Sand 
$b, 2890 Nordenham. Info: Freium- 
schlag 


C16—C116 64 KB RAM-Erweiterung 
baue ich für 100 DM in | Tag ein. Re- 
paraturen auch an Plus 4/1551 preis- 
wert! Infos — Tips — Tricks kostenlos 
gegen Freiumschlag bei U. Peters, 
Tannenweg 9, 2351 Trappenkamp, 
Tel. 0 43 23/39 91 


In any organization there will always 
be one person who knows what is go- 
ing on. This person must be fired. 
Call, XenoBOX: 02331/40 18-9. 
Hack'em! G-man/sy. 
Commodore-Computer-User-Club 
präsentiert: Tips + Tricks etc. Ga- 
rantiert: Stärke durch Einigkeit; GE- 
MEINSAMES Einwirken auf Com- 
modore (fast alle CBM-Geräte vor- 
handen!) Disk nach D2410 WKW 47 


Anfänger sucht Kontakte 
mit Computerclub + anderen Fre- 
aks, die sich mit Maschinensprache 
auf dem Amiga beschäftigen; Franz 
Alt, Mühlweg 14, 8069 Rohrbach/Ilm 
(zw. München + Ingolst.) 


LOTTO-GEWINN mit Lotto Perfect 
System Computerauswertung der 
letzten 5 Jahre — Ziehung 6 aus 49 
(DM 3.— inkl. Versand) Scheck o. 
NN. M.J. Mayer, H.B. 5, 7707 Engen- 
Bargen 


C64 The Happy Hackers PC 128 
über 500 Programme, über 600 Po- 
kes, Sammelbest. usw.! Clubinfos an- 
fordern: Bitte angeben ob Data oder 
Disk!! The Happy Hackers, Kasse- 
lerstr. 39, 3501 Fuldabrück 1 


Der DEHOCA am Telefon: Wer noch 
mehr über Deutschlands größte 
Usergemeinschaft und seine Ziel- 
gruppen wissen will, wählt an Werk- 
tagen ab 16 Uhr 0 57 22/2 69 39. 


Computer-Neuling von C128D aus 
der DDR sucht Brieffreunde zum ge- 
meinsamen Lernen, sowie zum Soft- 
wareaustausch. Monika Reim, DDR- 
7512 Cottbus, Semmelweisstr. 42 


C-16, 116, Plus/4-Anwender: Der 
Verein speziell für uns! Mit Clubzeit- 
schrift und Software-Bibliothek. Info 
beim hrc e.V., Bauerland 15, 4800 
Bielefeld | 

DAS LOTTOSYSTEM. Völlig neuar- 
tig! Logische Systematik statt blanker 
Statistik! Bestätigt durch 80% v. 1600 
Ziehungen. Disk+Dok. (C64/128) 
89.— DM oder INFO: Dr.H. van Düh- 
ren, im Weidig 9, 8732 Münnerstadt 


Verkaufe Disketten 


Diskettten mit Garantie 5,25 Zoll Stk. 
0.75 Fr.; 3,5 Zoll Stk 2.30 Fr. Franz 
Buchmann, Tel. 041/88 12 96, Ludis- 
wil, Ch-6027 Römerswil 


An alle Computerclubs!!! Informiert 
euch über die Vorzüge als Ortsgnup- 
pe des DEHOCA — auch Einzelmit- 
gliedschaften möglich. Info: Postf. 
14 30, 3062 Bückeburg 


Disketten Orig.verpackt Preis je 10 
Stück — 3,5", 2DD = 23,50; 5,25", 
2DD= 8,50. Info Rp Rückporto: 
Szczepanski K., Julius-Leber-Str. 75, 
5090 Leverkusen 1 


Verkaufe Peripherie 


Als Umsteiger in den DEHOCA!! 
PC- und Networkuser finden im Ver- 
band Public-Domain und jede Men- 
ge Tips zum anwenden/progr. Info: 
Postf. 14 30, 3062 Bückebur 
Umbauset auf 64 K für nur 50 DM für 
C16/C116 mit Super-Anleitung. Die- 
se funktioniert problemlos! Infos, 
Tips, Tricks gegen Freiumschlag! 
Uwe Peters, 2351 Trappenkamp, 
Tannenweg 9 


ER ee. 


Suche Software 
Achtung! Suche selbstgeschriebene 
Programme aller Art. Disc/Cass. für 


C64/128 PC. Beschreibung an C. Po- 
kluda, Weidestr. 101, 2000 Hamburg 
76. Gute Bezahlung. 


und Sexgames. Angebote an: Mi- 
chael Sackmann, Tel. 0 42 42/41 07 
Suche jede Menge CP/M-Programs 
für C 128! Alle Bereiche! Suche auch 
Games für C64! Bitte um baldige Ant- 
wort. Liste bitte an: Peter Lutscher, 
Birkenstr. 5, 7024 Filderstd. ] 


Suche Software für C64 Vereins. 
kaufm. Programme, Druck-PRG, Si- 
mons-Basic-Modul, Public-Domain- 
PRG, Supercalc-PRG usw. Angebote 
bitte an G. Zweygarth, Panoramastr. 
21, 7057 Leutenbach 
DEHOCA-Service „Public-Pool“ für 
alle Mitglieder vermitteln wir die be- 
sten Tagespreise auf Hardware — 
neu oder gebraucht. Info: Postf. 
14 30, 3062 Bückeburg 


Suche Sonstiges 


für C128, zahle gut. Angebote an 
Thumer Dietmar, Am Grettert 19a, 
A-6460 Imst 

Mailbox-Freaks drucken sich ihre 
DEHOCA-Beitrittserklärung selbst 
aus. Zu finden in allen DEHOCA-Re- 
gionalboxen und natürlich in der Ver- 
bands-Zentralbox 0 57 22/38 48. 


Köln 60. Ein Muß für User 


Verkaufe Sonstiges 


Habe Super-Public-Domain aus allen 
Bereichen. Liste gegen 80 Pf. Rück- 
porto (Briefmarke) bei: Michael Öh- 
ler, Hauptstr. 57, 7926 Böhmenkirch 
Brenne EPROM’S 2716/32/64/128 u. 
27256. Auch mit Autostart (Modul- 

rtplatine). Platinenservice nach 

haltplan. Anruf genügt! 08082/5475 
Robert 


2. DEHOCA-Messe in der Stadthalle 
Minden. Zweitägiges Bundestreffen 
mit öffentlichen Aktivitäten zum 1. Ad- 
vent. Info: Tel. 0 57 22/2 69 39 

Für FLIGHTSIMULATOR I Deut- 
sche Anleitung 40 S. (A4)+4 Flugkar- 
ten (A3) mit Koordinaten aller 80 Flug- 
plätze. Gratis dazu ca. 200 Spielepo- 
kes für C64. Preis 20.— inkl. Porto, 


Suchst Du Hilfe? Ich helfe Dir (auch 
tel.) für C16/116/+4/1541/1551 etc. 
Infos, Tips, Tricks, Angebote gegen 
Freiumschlag! Uwe ters, 51 
Trappenkamp, Tannenweg 9 


C-MOS 4001 -06-07-09-10-11-13-15-16- 
20-23-24-25-28-30-40-56-60-66-72-4510- 

11-14-16-18-27-43. 30 LM324/339/358/ 
741 NES55/556, TL 074/082-50, 7805/ 
3 80, Tel. 06201/63541 tgl. ab 


Gelegenheit: C-64 neues Modell mit 
Floppy 1541. Zubehör: Speeddos 

Frame, Basicbuch, Disklo- 
cher, Diskbox, Software: 100 Spiele, 
wie Destroyer, Cholo Preis 800 DM 
Tel. 0 68 52/64 08 


Top-Printer, US-Fabrikat; Letter 
Quality; Grafik; Centronics, Commo- 
dore, Atari Schnittst. absol. neuw. 399 
DM + Versand. M. Kriszio, Auf der 
Umflut 6, 4620 Castrop (Probedruck 
gegen Rückumschlag) 


C-128D +Mon. + Maus + F. Cartrid- 
ge II ca. 100 Disks: Protext/Multi- 
plan/Vizawrite/Superbase. Viele 
neue Spiele, Literatur VB. 1200.— 
en mit mir reden 022 03/ 


CBM 8032 Suche SV-Text (Textverar- 
beitung für Lehrer) für CBM-8032 und 
8050-Floppy. Günter Fiebig, Voltastr. 
67, 8500 Nürnberg, 09 11/45 59 82 


C128, Seik. SP1200VC, Flop. 1571, 
Green Monitor, Datasette, Final Ca- 
tridge III, alle DB-Bücher, + Datamat, 
Textomat, 20 Org. Spiele, 2 Joysticks, 
50 Disks, Zeitschr., alles 8 Mon. alt. 
VB 1600.— 0 77 21/5 67 99 


Anleitung nur DM 5.— 
(Schein) mit Brief an: I. Robert, Post- 
fach 14 36, 6052 Mühlheim 


für M.U.LE., das beste 


Anleitung 

C64-Spiel seit 1983. 10-DM-Schein im 
Brief an: I. Robert, Postfach 14 36, 
6052 Mühlheim 


Zeichens., Workshop, 
Tips, Tricks uvm. Probeheft 4.— DM 
b. T. Korsch Esmarchstr. 120, 2000 
Hamburg 50, Achtung: Amateur-Sta- 
tus, Selbstkostenpreisell! 


Für PRINTFOX ca. 3000 zusätzliche 
Grafikbilder und 50 neue (selbster- 
stellte) Zeichensätze auf Disketten. 
Gratisinfo bei W. Neumayer, Rüppur- 
rer Str. 94, 7500 Karlsruhe 


** Amiga is it ** Suche alte und neue 
Amiga-Software aus aller Welt. Write 
to: Ivenhoe from TEB, PLK 104978 C, 
4709 Bergkamen 


verlangen. 
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GEWERBLICHE GELEGENHEITEN 


Zählt für Sie jeder Millimeter? 
Als Geschäftsmann für wenig Geld in RUN 


präsent sein. 


Und so wird es gemacht! Schicken Sie uns Ihren 
Text mit der genauen Firmenanschrift. Pro ange- 
fangener Zeile (1 Zeile = 33 Anschläge) berechnen 


Biete an Software 


*%#%* WELTNEUHEIT xxx 
VDC-Master 128; softwaremäßiger 
Graphic-Booster für den C 128 und 
C 128D. 

* 43-50 Textzeilen auf dem Bild- 

schirm darstellbar. 

* Alle Attribute weiterhin dar- 

stellbar. 

* Bildschirm-Editor für alle 

50 Zeilen. 

* KEIN Interlace-Modus (!). 
Preis: Diskette inkl. Dokumentation 
nur sFR. 39,—. SCHOCH COMPU- 
TER, Werkstr. 6B, CH-8630 Rüti (ZH), 
SCHWEIZ. 


!!! Hallo Computer-Freaks !!! 
Commodore VC 64 & PC 128/ 
Pea Cock. Software und Acces- 
soires 


Info bei: 

MARCO MOOR 41/ 
CH-5603 Staufen. LER- 
ANFRAGEN ERWÜNSCHT. 


Kostenlose Freeware für den C64/ 
C128 bei Fr. Neuper, 8473 Pfreimd, 
Postfach 72. Gratisinfo. 
BAUFINANZIERUNG, Steuer, LV,Hyp. DM129 
LOHNST/EKST 86+87, alleEink-Arten DM64 
VEREINSDATEI Lasten, Lastschr., Etikett. DM 
FINANZBUCHHALTUNG komfortabel DM89 
HAUSHALTSKASSEkleine Buchführung DM39 
INFO: Klaus Hein, Salzstr. 28 a, Pf, 1331 

8950 Kaufbeuren, Tel. 083 41/8 1357 


C16/C116 — Resteverkaufl!! 
„Wir räumen unser Lager. Profitieren 
Sie davon! Alle C16/C116-Cassetten 
nur DM 5,— zzgl. Versandkosten! 
Liste C nur gegen 0,80 Rückporto: 
SUNSHINE-Software, A. d. Schilde 
14, 5270 Gummersbach. 


Plus4/C16/C64 -Lemprgr. Techn. 
Mathe, Schulanw. u. Grafik f. Schule 
+ Beruf, Zahntrieb-Hydr./Pneum.- 
Festigk., E-Technik, Vokabeln — 
Bruchrechn. Dreieck, Katg. 1-DM- 
Briefm. Comp.-Typ angeben! 

A. Ristau, Peetzweg 9, 332 Salzg. 1. 


| DISKETTEN m. Gar, ® 
® 5%’, 48tpi?D DM0,75 M 
= 3%'",135tpi2DDDM240 m 
W Allgem, Austro-AG&Hges,.,Ringstr. 10 MM 
m D-8057 Eching/Günz..Tel.:08133/6116 
** Dias ordnen mit Computer ** 
C64, C128, CPC, JOYCE, IBM-PC 
und Kompatible. Info gegen Rück- 
porto bei: Dipl.-Ing. Walter Grotka- 
sten, Birnenweg 6, 7060 Schorndorf, 
Tel.: 071 81/4 28 46 


DREAM GIRLS — pikantes deut- 
sches Adventure, Supergrafik, 2 
Disks, C64, 29,95 + NN, M. Ahrens, 
Am Quälberg 6a, 3170 Gifhorn. 
EROTICA — außergewöhnliche Ad- 
venture, aufregende Bilder, deutsch, 
C64, 3 Disks, 29.95 + NN, EROTICA 
1I-19.95, beide 39.95 + NN. 

H. Schmidt, Louise-Schröder-Str. 7, 
3000 Hamburg 61. 


118 GM Tanuar/88 


C64 Esoterikprogramme C64 
Analysen und Prognosen ab 15.- DM. 
SOREIRREROE m mit 16 - 20 Seiten 
Ausdruck 100.- DM. Info bei Dipl.- 
Ing. Rolf Heister, Böttgerstr. 29, 5205 
St. Augustin 3, 


Gratisinfo über C64/C128-Freesoft 
anfordenm bei Fr.Neuper, 8473 
Pfreimd, Postfach 72. 


FORTRAN-77 mit Disk & Handbuch 
f. C128 99,- DM f. C64 unter CP/M 
116,67 DM! Softwarehouse Kunz, Sta- 
pelbrede 60, 4800 Bielefeld 1, Tel, 
05 21/87 25 04 


Zur Zeit die beste Information von 
AIT. AIT — Amiga-Idealisten-Team 
— AIT über 450 Public Domain Disks, 
topaktuell: über 102 Fish (Faug, Tai- 
fun..., Auge, Amicus, Panorama, 
Casa, Icpug ... .) Super-PD-Info: 2 Dis- 
ketten = 12 DM, Beschreibungen 
>1300 KB, >550 Screens. Spape: 
5 DM pro Disk ohne Staffel; 10 
Stck. inkl. Porto etc. Wir tauschen 
auch: zwei zu eins. AIT-M, Rönn, Zie- 
geleiweg 32, 3257 Springe 4 (0 50 41/ 
82 29). 

Zur Zeit das beste Ta 

für Info-Disk-Besitzer 4 zu 1!!! 


zum kleinen Preis 
Analysieren Sie Ihre Mitmenschen 
über deren Namen. Sie kommen zu 
einem verblüffenden Ergebnis. 
Cagliostros Zahlenmagie 25 DM (Vor- 
kasse bar/Scheck). 
Software Studio Plieth, 5 Köln 80, 
Berg. Gladb. Str. 696, 0221/6802868 


+ Flugtraining für Commodore + 
C-64, VC-20 (+8K), C-16, C-116, 
PLUS 4 u. 3032 bis 8296. Umfassende 
Auswertung der Flüge. 

A) Hubschrauber-Simulator in Ak- 
tion. 9 Anzeigen im Cockpit. 3 Flug- 
progr. zur Wahl. 29DM 
B) Space-Shuttle-Landung. Echtzeit- 
simulation. Nach eg 47, 


C) Boeing-727-Simulator. Dieses Pro- 
gramm ist zur Anfänger- und Instru- 
mentenflugschulung geeignet. Mit 
Anltg. ‘ 34 DM 
Ab 2Progr. jedesminus 5DM 
Kass./Disk. Info gegen Rückporto, 
Fluging. F. Jahnke, Am Berge |, 
3344 Flöthe 1, T. 053 41/9 16 18 


Einkommensteuer/Lohnsteuer 1987 
C64/128 
Alle Einkünfte, Sonderausgaben, 
außergew. Belastg. usw. Ausführl. 
Anleitg. Disk 69 DM. Aktualisg 1988 
20 DM. Info 1.50 DiplFinw G. Bohnen- 
kamp, Meißener Dorfstr. 3a, 4950 
Tel. 0571/33855 (ab 19 


— DASGRAFIK-ARCHIV — 
Hires-Grafiken schwarz/weiß (nicht 
nur) für Druckprogramme. Über 500 
Bildschirme zur Auswahl. Fordern Sie 
kostenlos Kopien von Ausdrucken und 


Informationen an. Für 5,- DM (Vorkas- 
se) erhalten Sie | Musterdruck mit 20 
Bildschirmen. 
© DALLDORF-SOFT @ H.-H. Vollmer 
Zangengasse 12, D 1000 Berlin 26 


nn 


wir DM 7,— zzgl. ges. MwSt. Sie können Voraus- 
kasse per Scheck leisten; wir schicken Ihnen aber 
auch jederzeit eine Rechnung. Weitere Informatio- 
nen gibt Ihnen gerne Marianne Gad, Tel. 089/ 
3 60 86-201. Anzeigenschluß der nächsterreichba- 
ren Ausgabe ist Donnerstag, der 7. Januar 1988. 


Nützen Sie die gewerbliche RUN-Gelegenheit! 


DER SPORTFISCHER (Lernprogr.) 
incl. Prüfungsfragen aus 87 DISK nur 
DM 17,50 + NN 
PR TEC, 8968 Durach, Mühlenplatz 3, 
Tel 08 31/6 91 74 


QUANTITÄT STATT QUALITÄT? 


Das muß nicht sein! 
C-54 Son a Fee bei: 
ALPHA-SO 


Postfach11 32 ____ 6452 Hainburg I 
%* Super - Lohn - Einkommensteuer * 
Jahresausgleich '87. Neu m. Daten- 
speicher, Kundenverwaltg., Formular- 
ck, Analyse günst. jährl, Aktu.! 
(Demodisk)! 
* Miet — W * 
Mit allen Kreisen u. Gemeinden d. 
BRD! Disk ab 70.-, Info gg. RP. H-I- 
SOFTWARE, Niederfelderstr. 44, 8072 
Manching, 0 84 59/16 69 


! Hallo Computer-Leute ! 
Der schnellste Programmsorter, den 
es gibt, inkl. Druckermenü. Best.-Nr. 
1013 Fr. 20.- / Charaktertest Best.-Nr. 
1023 Fr. 18.- / Disc-Hilfs-PRG Best.- 
Nr. 1028 Fr. 25.- / PC128 — Profi C 
Runner Best.-Nr. 1503 Fr. 20.- / Sex — 
PRG's ab Fr. .20.- Kurs Sir.-DMI/l + 
Porto. 

MARCO MOOR / Software / Post- 
fach 41, CH-5603 Staufen 


Preiswerte Software für !!! 

— IBM PC u. Komp. Softw. u. Bücher 
— ATARI 260/250 ST Softw. u. Bücher 
— ATARI 400/600X1/800XL/130XE 
_ ei C64/128 Bücher u. 


— Qualitätsfarbbänder f. 


Kostenlosen Katalog anfordern! 
Fa. Vögerl, Espanstr. 60, 
8431 Mühlhausen, Tel. 0 91 88/17 32 


Der FIBU für 
C64/C128. Info gegen Rückporto 
oder Demodisc f. % DM. Gramatzki 
Ritterlandweg 28, 1000 Berlin 51, Tel, 
030/4 92 64 34 


Vereinsprog. 100% Maschinenspr. 
kompl. Stat., Buchf., Text, BEinz 
C64 900 Mtgl 98DM 
C128(802Z) 900 Mtgl. 128DM 
C128(80Z) 1800 Mtgl.168DM 

Fa. K.-H. Weiß, Aktienstr. 170 
4300 Essen 11, Tel. 02 01/67 54 49 


Finanzbuchhaltung f. C-128/C-128d 

— Buchen nach den Grundsätzen 
ordentlicher Buchführung 

— 500 Konten frei definierbar 

— Unbegrenzte Buchungen 

— Menügesteuert 

— Konten-/Journalauswertungen 

— Buchen mit Kontoeinblendung 

— Sofortige Kontenaktualisierung 

— Stormobehandlung 

— Diskettenmanager DM 199,— 

Nertz-Data Tel. 07822/2457 

D-7636 Ringsheim Hans-Thoma-Str. 


Vereinsv C64 / C128x 
Mitgliedslisten, Bankeinzug, Rech- 
nung, Aufkleber, Rundschr., Kasse 
79 DM, Info gegen Freiumschlag: IS- 
Soft, Bergf. 21, 8261 Tittmoning 


Ihren 


Lohn + Gehaltsprogramm F. CBM 
64 und andere z. vk. Info + Demodisk 
von F, Spiess, Turbinenstr. 4c, 6800 
Mannheim 3], Tel.: 06 21/72 15 15 


BEBEBBEBBBEBBBBEN 
The best of Public Domain 
Ausgewählte Software f. C64! Pro 
‚Disk nur 20.— voller Superprogram- 
me. Bar o. Scheck. INFO geag. 0,80- 
Rückporto. POWERSOFT, Landsber- 

ger Str. 291, 8000 München 21 
BEBBBBBRBEBEBEM 


Platinenservice — exzellente Serien- 
herstellung / Info 0 91 87/74 63 


Commodore-Reparatur 
CSS, Peiner Str. 170, 33 BS, (0531) 51015 


Suche Software 


Gesucht — Gesucht — Gesucht 
selbstgeschr. _ AMIGA-Programme. 
Gute Bezahl. Softwarevertrieb Frie- 
be, Herthastr. 26, 8 München 19 


8. Flohmarkt für Funk- und Compu- 
terfans am Samstag, 23. April 1988, 
8.30—17.00, im Nürnberger Messe- 
zentrum. Mehr als 5000 qm Ausstel- 
lungsfläche für private und kommer- 
zielle Anbieter. Über 4000 kosten- 
freie Parkplätze. Direkte Anfahrt von 
jeder Autobahn. 
Ausstellerinformation: Hans Kammler, 
Laurentiusstr, 9, 8500 Nürnberg 60, 
Tel.: 09 11/64 44 34 
Das Lottosystem. Absolut neu!!! 
Keine blanke Statistik, dafür logische 
Systematik! 
80 % von 1600 Ziehungen bestätigen 
DAS LOTTO: . Investieren 
Sie zielgerecht! Disk+Dok. f. C64/ 
128+Fl. 89,— DM oder INFO bei: Dr. 
H. van Dühren, Im Weidig 9 — 8732 
Münnerstadt 


C64-Info + Disk 3,- (BM)! 32 P. D. — 
Diskseiten 70,- (Bar)! PAWLOWSKI 
WASSERWERKSTR. 18, 2177 WINGST 


Biete Soft- & Hardware für C 64 u. C 
128. Info gegen DM 1,— in Briefmar- 
ken von: Softwareversand M. Lang, 
Im Langen Scheerbaum 13, 6551 Hak- 
kenheim 


Biete an Hardware 


C64-, C128-, VC20-User Achtung! 
Lichtgriffel mit Programmen und dt. 
Anleitung nur DM 49,—. Versand ge- 
gen Scheck/Nachnahme. Info gratis! 
Fa. Schißlbauer, Postfach 1171C, 
8458 Sulzbach, Tel.: 0 96 61/65 92 bis 
21 Uhr. Sonderaktion: Legen Sie Ih- 
rer Infoanforderung DM 10,— bei. Sie 


erhalten dann 10 Superprogramme 
auf Kass. od. Disk für C64/C128. 
Münchner Computer Blitzversand 
Commodore C128/D DM 998,— 
Commodore Amiga500 DM 998,— 
Floppy Disk VC 1551 DM 298,— 
StarNL 10 DM 578,— 


Compiler C16/64/128 ab DM 145.— 
Tel.: 089/68 82 26 


#*kkek ATOM-UHR für C64 Hi 
DCF77- fänger 
anschlußfertigim Gehäuse DM89,— 
inkl. MwSt./Versandkosten. Dazu 


SUPER-STEREO-SOUND 
als Steckmodul im Expansionsport für 
C64, SX64, C128 und C128D. Preis- 
senkung: nur noch DM 178,—, er- 
zeugt echten Stereosound, kein Pseu- 
dostereo, Verdopplung von 3 auf 6 
Stimmen, je 3 für rechten/linken Ka- 
nal, in BASIC + Assembler program- 
mierbar, im 64er-, 128er- + CP/M- 
Modus, kein neuer Befehl kommt 
hinzu, mit Lautspr. + eingebaut. Ver- 
stärker, Demoprogr. mit Super-Ste- 
reo-Sound und Programmierbeispie- 
len, nun auch mit durchgeschleiftem 


Ex-Port (Aufpreis: DM 20,—). 
KbL Eicknik . Fonda A 


Müllnerstr. 28 - 8500 Nürnberg 80 - 
Telefon (09 11) 26 32 62 


MODULE C64—C128 MODULE 


S/5Turbo-Disk-Tape-Hardc. 35DM 
Super Hardcopy-Modul 45 DM 
P. Betriebssystem 7«schn. 55DM 


M. 3000 Turbo-Tape-Disk-Monitor 

Backup-Filecopy-Hardcoopy 65DM 
S-1286*schn. im 64 Modus 45DM 
SX128wieS-128+Monitor+HC 65DM 


Klemmer & Schulte Elec. 

0 22 33/4 69 67 

E.M.-Arndt-Str. 6, 5030 Alt-Huerth 
Reparaturen/ An- und Verkauf 


gratis!!! UHR-Programm auf Diskette 
oder Kassette, M. Elias, Rußwurmstr. 
26, 8460 Schwandorf. Info-Blatt anfor- 
dern. Tel, 0 94 31/87 77 


MARKTFÜHRER 


1000 Berlin 6457 Maintal 


Macht das 
Krankenhaus 
krank? 


Der wunde Punkt! 
Technisch gesehen, 
bieten Kranken- 
häuser heute 
ziemlich alles. £ 
Aber die Tren- \ 
nung der 
Kinder von 


WALTON MASTERS. MUNCHEN 


als Trennungsangst später wie ein 
Schock nachwirken. Wenn jedoch 
die Mutter im Krankenhaus beim 
Kind im »Rooming-in«- Verfahren 
wohnen darf, lösen sich viele 
Probleme von selbst. Wer in 
unserem Land etwas für 

Kinder tut, tut das 
Beste für die Zukunft. 


.r» 
0° „Fragen Sie uns - wir helfen weiter. Helfen 
m auch Sie mit - durch Ihre Spende: PSchAmt 


München, Kto-Nr. 440 809. 
Deutsches Kinderhilfswerk e. V. 
Langwieder Hauptstr. 4, 

8000 München 60. 


r--- 2-2 00n.00.0.0 


IJa, informieren Sie mich, 


1 wie ich gemeinsam mit Greenpeace zur 
Erhaltung unserer Lebensgrundlagen 


gem Berlins größtes größtes 
Electronic-Kaufhaus 


Stresemannstr. 95 
1000 Berlin 61 


nz)‘ 


beitragen kann! Schicken Sie mir das Infor- 
mationsmaterial an diese Anschrift: 


Name 


@ (030) 261041 = 


Benützen Sie für 


eilige Anzeigen 


unseren Beratung, Verkauf, Service, Leasing Bitte schicken Sie diesen Coupon im 
. Umschlag mit 2,40 DM Unkostenbeitrag 
Fernschreiber Wingertstr. 114 in Briefmarken an: Greenpeace e.V. 
6457 Maintal-Dörnigheim Hohe Brücke 1 „ 2000 Hamburg 11 
5 215 350 comw d Tel. 0 61 81/4 52 93 (Mailbox 48884) re 


Landolt Computer 


PLZ/Ort 252493 


1] 
1 
1 
I 
1 
1 
1 
I 
1 
1 
1 Straße/Nr. 
1 
1 
1 
i 
I 
ı 
1 
I 
I 
1 
I 
[| 


Nr. 2061-206 , Postgiro Hnb , BLZ 200 100 20 # 


Zwei Themen — ein Ereignis: 


Hobby-ironic. GONPIERSENAD = 


11. Ausstellung für Funk- 
und Hobby-Elektronik 


Die umfassende Marktübersicht für Hobby-Elektroniker 
und Computeranwender, klar gegliedert: 
In der Westfalenhalle 5 das Angebot für CB- und Amateur- 
funker, Videospieler, DX-er, Radio-, Tonband-, Video- und 
TV-Amateure, für Elektro-Akustik-Bastler und Elektroniker. 
Mit dem Actions-Center und Laborversuchen, 
Experimenten, Demonstrationen und vielen Tips. 
In der Westfalenhalle 6 das Superangebot für Computer- 
anwender in Hobby, Beruf und Ausbildung. 
Dazu die Mikrocomputer-Beratung un: 
die Stände der Computerclubs. 


4. Ausstellung für Computer, 
Software und Zubehör 


3.-7. Februar 1988 


täglich 9-18 Uhr 


Stark verbilligte Sonderrückfahrkarte 

an allen Bahnhöfen der DB 
— Mindestentfernung 51 km außerhalb VRR — 
plus Eintrittsermäßigung. 


Messezentrum Westfalenhallen Dortmund 


NET ER een 


WAS GIBT’S WO? 


Auf diesen Seiten 
können Sie laufend 
Angebote und neue 
Produkte aus dem 
Hard-, Software- und 
Peripheriebereich 
anbieten. 


„Was gibt’s wo“? 
Wer aktuell informiert 
sein will, findet hier, 
was er sucht. 


K.M.-SOFTWARE 

POSTFACH 13 18, 8998 LINDENBERG/ALLG. 
TEL.: 0 83 81 127 27 0.816 46 

HARDWARE 


© 128. D nur 988,- DM Epson LX nur 648,- DM 
Amiga 500 nur 1.138,- DM 2MB Erw. A500 nur 988,- DM 
2D orig. Commodore Disk., 10St. 18,50 DM 100St. 179,50 DM 
2D No Name Disketten, 10 St. 9,50 DM 100St. 89,90 DM 
Lieferung der Hardware gegen Nachnahme + 10,- DM oder 
Vorkasse + 5,- DM. Ausland nur gegen Vorkasse. 


SOFTWARE 


AMIGA: Barbarlans 77.50DM CaliforniaGames 78,50DM 
Kings Quest I, Il, Ill je 89,90 DM alle 265,- DM 
Space Quest 89,0DM Sindbad 79,90 DM 
Super Huey 68,50DM Ninja Mission 29,90 DM 
Deja Vu 89,50DM GranSlam Tennis 145,-DM 
3Musketeers 79,90DM und vieles mehr 


: Music Pool 128 nur noch 
Siehe Testbericht „RUN 12/87° 
Musikträger-Verwaltungsprogramm 
KFZ — Handei 128 ganzneu nur 49,0 DM 
Eine Wirtschaftssimulation. Sind Sie der beste Verkäufer für 
den KF2-Handel? Versuchen Sie Ihr Glück! ! 

Keep Cool Il nurnoch 30,-DM 
Siehe Testbericht „RUN 12/87" 
Spy Mission nurnoch 25,.DM 
Textädventure in Deutsch mit dt. Zeichensatz 

+ Adress Pool PC Sparpreis 39,95 DM 
Die Stammdatenverwaltung für Ihren IBM PC und Komp. 
Hiermit können Sie all Ihre Daten von Privatpersonen und 
Firmen speichern, Etiketten und Listen ausdrucken. 


Nur Diskettenversionen, Händleranfragen erwünscht. 
Versand per Nachnahme + 5,- DM, Vorkasse + 3,- DM. 
Ausland nur Vorkasse, Ab 3 Stück ohne Nachnahmegebühr, 
Andere Programme? Katalog gegen Ruckporto anfordern. 


69.90 DM 


»» dekatron 


lernsoftware 


Lernen Sie spielend Sprachen 


Professionelle Programme für Schüler und Eltern. Vers. 4, 
erweitert und überarbeitet. Mit neuen Programmen und 
noch mehr Lernmöglichkeiten. Für C64/C128 auf Disket- 
ten. Jeder Sprachlehrgang besteht aus jeweils 3 Pro- 


grammdisketten mit je 1000 verschiedenen Vokabeln. 
Test I und Il Anfänger, Test Ill Fortgeschr. Englisch Idiome 
— je 800 Redewendungen/Progr. 

Englisch Test I, Il, Il + Englisch Manager 

Englisch Idiome I, Il, Ill, IV (Redewendungen) 

Englisch Nautics I, Hl, Ill (für alle See-Fans) 

La France Test I, Il, Il 

Spanisch Test I, Il, Ill 

Italiano Test I, Il, I 

Dänisch Test I, Il, Il 

Latein Test I, Il, Ill 
Jedes Programm ist ca. 100 KB stark, hat Umlaute nach 
deutscher Tastatur, Diskmenü, Druckmenü, Korrektur, 
Testauswertung und ausführliche Anleitung. Info gratis. 


Bestellservice auch telefonisch von 9-21 Uhr. 

Preise je Progr.: 39,- DM, 3 Stck. 109,- DM, jedes weitere 
35,- DM/Stck., zzgl. NN + Porto 

dekatron, Postfach 1263, 6103 Griesheim 

Tel. 06155/61874, Tx 4197213, Fax 06155/6832 


Deaicnnaken 1.o 


Text-und Etiketten-Oruckprogr. leich 
33 Zeichensätze auf Disk in 4 Kt 
Ein eingebauter Editor für Zeichensätze 
erster Klasse. Bis zu 128 Zeichen/Zeile. 
Es können Hires-Grafiken aus Malprog. , 
Spielen, Printshop, Printnaster, Neus- 
Room, ... in Designnaker-Fornat 

delt und an beliebiger Stelle im Text 
plaziert werden. Bis zu 9000 Zeichen auf 
einer Seite. Der Texteditor beherrscht 
Blocksatz, Zeilenabstand, Tabulator, Ko- 


pieren, Verschieben, Druckerbefehle,... 

Sie sehen die Bilder auf den Bildschirm, ABC 012 

so wie sie ausgedruckt werden. Das Eti- 

ketten-Fornat kann eingestellt werden. NBC 912 

Okinate; Panasonic: ereeckı, seikamar.. AMPU DEZ 
inate, Panasonic, x), Sei 1 

und alle die kompatibel sind. Dieses In- 

serat wurde nit Designnaker erstellt. 

(für (44/128, Disk + deutsche Anleitung, 

0M 44,90). Bilderdiski nit ca.258 tollen 

Bildern (DM 24,98). Disk mit 32 neuen 


noch besseren Zeichensätzen (IM 24,98). ABCDEF 123 


BEL: ame. aruranmgren DBCDEP 123 
nit bis zu 108 Daten (Balken- ‚Diagrann-, ABCDEF 456 
Kuchen-ürafik, Ausdruck) fur öm 19,98. 

abase-64: Dateiveru., bis zu sale üa- ABC 012 


teien, nur DM 14,98. Info gegen 88 
ABG 789 


HOFFMANN Romain, Mondorferstraße 9 
L-5552 Renich 
Zahlung: Bar, Schecks (+0M 2,58), Post- 
a rar BOCTER 1d 
Keine Nachnahme ins Ausland. 


Datum/Unterschrift 


Funkbilder für Commodore C 64 
und 128’er und Amiga. 
Fernschreiben, Morsen und 
Radio-Kurzwellen-Nachrichten 


Haben Sie schon einmal das Piepsen von Ihrem Radio auf 
Ihrem Bildschirm sichtbar gemacht? Hat es Sie schon im- 
mer interessiert, wie man Wetterkarten, Meteosat-Bilder, 
Wetter-Nachrichten, Presseagenturen, Botschaftsdienste 
usw. auf einem Computer sichtbar macht? Ja? Dann las- 
sen Sie sich eine Einsteiger-Information schicken oder 
bestellen Sie einfach gleich 


Steckfertige Module mit eingebauten Filterkonverter 
Alle gängigen Betriebsarten, selbsterkennende Auswer- 
tung und Abstimmung. Stufenlose Shiften und Baudrate 
Sondereinheit für verschlüsselte Sendungen und Code- 
analyse. Drucken, Speichern, automatische Aufzeich- 
nung. Senden und Empfangen von Funkfernschreiben, 
Morsezeichen und Faksimile-Bildern. Für fast alle Druk- 
ker am USERPORT oder IEC-Bus. Aufzeichnen, Über- 
arbeiten, Speichern und Drucken 


Unser Angebot — eine Komplett-Ausrüstung mit Anlei- 
tung für den Einsteiger für Funkfernschreib-, Morse- und 
Bilder-Empfang. Modul einstecken, mit Lautsprecher- 
anschluß verbinden, einschalten und los geht's. 


Super-Sonder-Angebot BONITO-SUPERCOM-Modul für 
198,00 DM 


Weitere Infos bei 
Peter Walter 


An der Ziegelei 1. 3100 Celle, Tel.: 05141/35343 


PRIN ECHNIK 
VIDEO DIGITIZER 


64/128 Modul mit Supersoft 
Neuer Preis 


Eine Super-Weiterentwick- 
lung des 1000fach einge- 
setzten PRINTTECHNIK 
VIDEO-DIGITIZERS. Mehr 
Komfort mit mehr Software. 
Jedes Video-Signal (auch 
Kamera + Standbild) läßt sich innerhalb von 4 
sec. in den Speicher eines Commodore C 64/ 
128 einlesen. Ein Grafikausdruck ist auf prak- 
tisch allen Druckern möglich. 
AMIGA DIGI-VIEW 398,— 
(Adapter für 500/2000) 48,— 


AMIGA GENLOCK (500/1000/2000) 1198.— 
DIGI-PAINT Maisoftware 119,— 
Neu: Videotext-Modul/Soft 
64/128 


8000 MÜNCHEN 40 - NIKOLAISTR. 2 - TEL. 089 / 368197 
KATALOG DM 3,- Tügl. Versand -Telex 523 203d 


wo 


6207. 28/700 TA1- ZT ULSIOHNHVG - METWELLING TIRT-NONLONIIW-ZUMNDS 


N » STUMPERG 


£ 


1060 WI 


RREICH 


E 


ÖsT 


Zu der in RUN Hett ..., S. ..., erschienenen Anzeige 


gebe ich folgende Bestellung auf: 


Bitte ich um Information über das Produkt: 


Bitte schicken Sie mir [] Preisliste U Katalog/Prospekt 


Bitte diesen Coupon direkt an die Firma zuschicken. 


könnte Ihre 
Anzeige stehen. 


Rufen Sie 
einfach an. 


Telefon: 
089/3 60 86-201 


Wir beraten Sie 
gerne! 


%* DIE BESONDERE SOFTWARE « 


Für COMMODORE PC-128 oder C-64: 

— BZ-ASTROMEDIZIN (79,) und BZ-ASTRO- 
PSYCHOLOGIE (99,-) zur Berechnung und astro- 
medizinischen bzw. astropsychologischen Aus- 
wertung von Geburtshoroskopen 

— BZ-HOMÖOPATHIE: umfangr. Programmpaket 
(Repertorisierung v. Einzelmitteln, Erstellung 
hom. Fragebogen, Komplexmitteldatei) für Ärzte, 
Heilpraktiker u. interessierte Laien (PC-128 149,-/ 
C-64 79,.) 


Für COMMODORE PC-128 

— BZ-FINANZ: komfortable Einnahmenüberschuß- 
Rechnung nach $ 4.3 EStG f. Kleingewerbe u. 
Freiberufler; u.a. mit statistischer Auswertung, 
graf. Darstellung (DM 79,-) 

— BZ-DATEI: elektr. Karteikasten zur unkomplizier- 
ten Verwaltung von umfangreichen Stichwort- 
dateien (DM 49,-) 


Für COMMODORE 64 und 128 im 64er-Modus: 

Prof. Programme aus den Bereichen ASTROLOGIE, 
BIORHYTHMIK und PERSÖNLICHKEITSTEST sowie 
HEILPRAKTIKER-AUSBILDUNG 


Fordern Sie bitte unsere umfangreichen Informationen an 


BEATE ZILLE — SOFTWARE 


Oskar-Schindler-Str. 5, D-6000 Frank- 
furt 56, Telefon (0 69) 5 07 70 83 


Weltneuheit 
GRAPHIC BOOSTER 128 


für den C-128 und C-128D 

Graphik Booster 128 vergrößert Ihren C-128 von 640 x 

200 Punkten auf 720 x 700 Bildschirmpunkte! Das heißt 

eine ganze A4-Seite! 

* Grafikbefehle Basıc, von Basic 7.0 frei programmierbar 

* 7 mal mehr Punkte Auflösung als der C-64 

* 43 bis 50 Textzeilen (IBM Standard 19871) 

* Bauen Sie Ihren Rechner zum billigsten CAD-System 
der Welt aus! 

Diese Superauflösung ist vom 128-Modus, 64-Modus und 

CPM-Modus ansprechbar 

Farben: Fading= Farbverläufe über ganzen Bildschirm 

(Qualität wie Fernsehschrifttafeln). Auswahl aus über 

3000 Farben 


Ein Muß für jeden G-128 Besitzer! 


GRAPHIC BOOSTER 128 Ist 100% kompatibel: Karte muß 
nie entfernt werden. Sämtlich bestehende Software (inkl 
64er) läuft uneingeschränkt bei eingesteckter Karte! (c) T 
Giger Solothurn Schweiz 1986 

Preis: DM 199.— inklusive Mehrwertsteuer. Vorauskasse 
DM 174.—, DM 7.— Porto, auf Postscheck Nr. 45-306-2 
Combo AG Solothurn CH. Nachnahme BRD DM 174.— 
Porto DM 7.—. In der Schweiz Fr 199.— 

Verkauf durch: Gratis Info-Material inkl 
COMBO AG original Farbbildschirmfoto! 
Tugginerweg 3 

4500 Solothurn/Schweiz 
Tel.: 065 23 26 86 


Aus BRD 
0041 65 23 26 86 


Eee ER N. 


Adressen (nurf. 128er)...99,500M Liga3.1 

Aktien 64 29,500M Mad Road 29,50 0M 
ASI Planet des Todes 14,500M Mathe-Labyrinth 9,50 DM 
Banden Boss 9,500M Morse v3,3 128 19,50 DM 
Beleuchtungsberechnung 69,50 0M Moneytrans 64 29.50 DM 
Bundesliga (nurf. 128er). 19,500M Maneytrans 128 (f. 128er). 39,50 DM 
Bundesliga Live 29.500M Multiscn 128 19,50 DM 
Brietmarkenverwaltung... 14,500M Notenkaikulation 39,50 DM 
Class Char-Gen 29,500M Penthesia 19,50 OM 
Chemie (nur f, 128er)... 39,500M Aelativdatei 128 19,50 DM 
Chemiepauker 9,500M Rechnung (nur f. 128er)... 39,50 DM 
Chemie-Trainer 39,50 DM Aule The Worid. 19,50 DM 
Comtortabie Disk 29,500M Running Horses 29,50 DM 
Cup Leader 19,500M Sammlung 1-5,7 #9.500M 
Die Lorbeeren Caesara.... 19,50DM Sammlung 6 {nur 128er).. 19,50 DM 
Die Quelie des Bösen 19,500M Schacharchiv 39,50 DM 
Dir-Sorter 128 19,500M Scotland Yard 19,50 OM 
Disk-Manager 128 19,50DM Seeweg nach Osten 19.50 0M 
Disk-Master 128 Sex-Games 19,50 DM 
Diskettenverwaltung Siggi’s Kabbala 19,50 DM 
Disk-Manager (nur 128er). 9 Sprite Creator 

Eingabe Routine Sprite Genie 

Flächenberechnung 9.50 Speiseplanerstellung 

Fußball-Tabby 19,50 [ lender (128er) 

Graphics I nverwaltung 128 

Hagmann 128 5.000 Translator 

Hacker 128.({nur 128er) Videothek (nur 128er) 

Im Banne des Zauberers.. 14,50 D Yard 

KFZ-Handels-Spiei 128... 29,50DM Zeichen-Designer V3.7.... 29,50 DM 


Kostenlosen Katalog anfordern! 


24 Stunden automatische Bestellannahme Tel.0 82 36/8 82 


= Soft & Hardwarevertrieb Scheiba 
Talstr. 26 8901 Dinkelscherben 


COMPUTERSOFT JONIGK 


c64 Cass Disk Cass Disk 
SUMMERGAMESI 9,90/19,90 IMPLOSION 44,90 
KIKSTART2 9,0 VIDEO TITLESHOP 54,— 
SABOTEUR 2 29,—/34,— DEFENDERO.CROWN 46,— 
THUNDERSHOPPER 79,90 BATTLEGROUP 89,90 
PIRATES 39,-/52,— _ KAMPFGRUPPE 89,90 
AOADWAR EUROPA 59,—  VIZASTARGA 298,— 
FREDDY HARDEST 49,90 VIZAWRITEG4 %,- 
CALIFORNIA GAMES ZUM ABSOLUTEN SUPERPREIS 32, /39,— 
AMIGA 

CALIFORNIAGAMES  69,— 
DIABLO 69,— NINJA MISSION 34,90 
EMERALD MINE 29,95 PHANTASIE II - 
GARRISON 59,-  PLUTOS 4,— 
GALAXION FIGHT 49,— _ ARODWAR EUROPA 84,0 
KAMPFGRUPPE 89,90 _VIZAWRITE AMIGA 198,— 


KNIGHT ORG 69,— 


c16 
CSJGAMESI 29,-/39,— 


CSITURBOTAPE 29,90 
ALIENS 24,90 
ACEN 3,- 


VIZA 


SOFTWARE 


CSJ COMPUTERSOFT JONIGK 
An der Tiefenriede 27 

3000 Hannover 1 

Tel.Service 05 11/88 63 83 


Riesenauswahl an Software 
Sofort CSJ NEWS anfordern 
Bitte Computertyp angeben 
Händleranfragen erwünscht. 


SOFTWARE TOTAL 
PREISKNÜLLER 


C-64-SUPER-FREESOFTPAKET 1: 
Über 700 der beliebtesten C-64-Freesoftprogramme auf 
40 praligefüllten Diskettenseiten! (Spiele, Anwenderprg., 


Hiltsprg., DFU, Unterhaltungs- 89 
progr., Musik, und vieles mehr) = 
DM , 
\ C-64-SUPER-LERNPAKET 1: 
(von Lehrern zusammenge- 

2. Klasse bis 
C-64-DUO-SUPER-FREESOFTPAKET 1: 
SUPERFREESOFTPAKET und 
DM 6,—, 12seitige Freesoftliste gegen 80 Pf. Rückporto 

ZU BESTELLEN BEI 


| Dazu ein toller C-64-Joystick!! 
Über 250 hilfreiche C-64-Lernprogramme auf 18 prall- 
gefüllten Diskettenseiten! 
stellt — von der 2 m 
zur OBERSTUFE) DM 39 s 
LERNPAKET zusammen! (fast 
1000 Programme und 1 Joy- 
stick) DM , 
PORTO/Verp.: bei Scheck kostenlos / per Nachnahme 

FREESOFT-KOPIER-SERVICE LUDWIG 


Commodore 255 K-Erweiterung für AMIGA 1000 
Commodore Farbmonitor 1084 659,-: Commodore AMIGA 500 
Commodore AMIGA 500 + Farbmonitor 1084 
Commodore AMIGA 2000 2299.-: 2. Laufwerk für 2000 
Commodore AMIGA 2000 + Farbmonitor 1084 
PC/XT-Karte mit 544‘ "Laufwerk 1099,-: 2 MB-Aufrüstung 
AT-Karte mit 544’ * «Laufwerk 1699,-: 20 MB-Festplatte 
Commodore PC-10$ 1769.-: Commodore PC-205 
NEU: Commodore Computer PC1 
Floppy-Disk VE 1571 499,-; Commodore C 128 D 
Computer Pius4 199,-; Floppy-Disk VC 1551 
Bernsteinmonitor Thomson (35 Mhz, mit Ton) für C 64/128 
Schwarzweißfernseher Samsung (auf Monitor umschaltbar) 
Akustikkoppier Dataphon 5 21 d+ Kabel + Diskette O64 
Akustikkoppier Dataphon S 21/23 (300 oder 1200 Baud) 
Armbanduhr Seiko Wrist Terminal RC 1000 (kann vom 064 mit dem 
mitgelieferten Kabel + Terminalprogramm progr. werden) 
Commodore Farbpiotter 1520 anschlußfertigan C64, 16 + 4 
Commodore Farbdrucker MCS 801 Color (2. Wahl mit 6 Monaten 
Garantie, anschlußfertig an C64. 16, 116. + 4) 
Epsondrucker anschlußfertig an C 64/128 mit Görlitzintert. 8426: 
1X 800 699.-: FX 800 1079,-: FX 1000 1349,-: IX.800 
LO 1000 1499,-; LQ850 1499,-: LO 1050 1919,-; EX 800 
Epsondrucker anschlußfertig an AMIGA, PC, CPC oder Atari ST 
LX 800 569,-: FX800 949,-: FX 1000 1229,-: IX. 800 
LQ 1000 1379,-; 10850 1379,—; LO 1050 1799,-; EX 800 
Stardrucker NL-10 anschlußfertig an C64/128 (dt. Version] 
NEC-Drucker P6 (dt. Version) 1149,-; P6.Color 
P7 (dt. Version) 1549,-; P 2200 

Schneider PC 1640 mit Schwarzweißmonitor + 2 Laufwerke 

PC 1640 mit Schwarzweißm./ 1 Laufw. / HD20 

PC 1640/EGA/1 LW/HD 20 3749,-; EGA/ZLW 

PC 1640/Farbm./HD 20 3179,-, Farbm./2LW h 
Versandkostenpauschale (Warenwert bis DM 1000,-/darüber): Vorauskasse 
(DM 8,-/20,-), Nachnahme (DM 11,20/23,20), Ausland (DM 18,-/30,-). Lie- 
ferung nur gegen NN oder Vorauskasse: Ausland nur Vorauskasse. Preisliste 
(Computertyp angeben) gegen Zusendung eines Freiumschlags 


CSV RIEGERT 


Schioßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 


Keine Ferien 
ohne Computercamps 
und American Sports 


Computerferien 


im Schwarzwald 


e Basic e Pascale 
e Maschinensprachee 


Prospekt anfordern! 


Computer World 


7800 Freiburg - Hurstweg 62b 
Telefon 07 61/4 47.75 


Media- 
Unterlagen 1988 
für 


„RUN-Sonderhefte“, 
„Amiga-Welt“ 
und 
„MSIDOS-Welt“ 
ab sofort 
erhältlich! 


Januar/s8 um 121 


_ WAS GIBT’S wo? 


C64 : PC 128 : VC 20 


TEXT menügesteuerte, leicht erlernbare 
Textverarbeitung mit integrierter 
Adreßdatenbank, Selektierung und Steuerung 
nach bis zu 9 verschiedenen 

Kriterien 48,— 


FIB frei def. Kontenrahmen, automati- 
scher Kontenausdruck, Journal, Kre- 
ditoren, Debitoren, Summen- und Saldenliste, 


Gewinn- und Verlustrechnung, 98 ae 
Bilanz, BWA ‚ 


LOHN komplette Lohnabrechnung, alle 

Lohnarten, Abrechnungslisten für 

Finanzamt, Krankenkasse, etc., 98 = 
’ 


Überweisungsträger 
FAKTU integrierte Lager- und Adreßver- 
waltung, Rechnungen, Angebote, 


Lieferscheine, Umsatzstatistik und 
offenePostenliste,biszu3Mahnstufen 


KOMPLETT»  198.- 


INFO GRATIS 


HD SOFTWARE & BERATUNGS GMBH 
MITTELSTR! 29, 6308 BUTZBACH 5 
TEL. (0 60 33) 6 06 70 


Erfolgreiche 
Kleinanzeigen im 


Schalten Sie private RUN-Board-Anzeigen zum Taschengeld- 
Tarif von nur DM 5,— für 6 Zeilen, Jede weitere Zeile DM 1,— 
Eintach Bestellkarte In diesem Heft ausfüllen! 


. Wire ee 


Computerservice 
Tino Hofstede 

An der Windmühle 8 
5010 Bergheim 5 


® GELD 64 /128 Man wählt unter 25 Re- 
1.3 chenroutinen in den Be- 
u reichen: Anlage — Kapital — Vermögensbildung 
— Sparen — Rendite — Lasten — Zinsen — 
5 Kredit — Hypothek — Laufzeit — Amortisation 
— Ratenzahlung — Ausdruck vollständiger Til- 
15) gungspläne — Abwertung — Nominal-/Effektiv- 
zinsen — Diskontierung — 
El Devisen — Konvertierung ) 
= 12 Gesellschaftsspiele oomino. Dame, 
EM Mühle, Knitfeln, Puff, Reaktion, Lotto, 17+4, 
I Wörter AZ, 4 Steine, 
I Minotaurus, Skat , 


U) 
m 12 Reaktionsspiele avienkmanöver. Auto 
m Crash, Froschleben, Goldmine, Kerker, Mäuse, 
Reaktionstest, Schlag-Saite, DM 36 E 
, 


Steinetreffen, U-Boot, usw 


E55 Unterhaltungs- und Intelligenz- 


m Programme Aikotest, A-Z Spiel, Biorythmus 
MM mit Ausdruck, IQ-Test, Chamäleon, Ku-Damm- 
I Uhr, Magische Quadrate, Mathe, Superhirn, 
Türme von Hanoi, Minotaurus, Phrasen- 
w drescher, 4 Steine, 
Weltuhrzeitkarte ) 


u Alle Programme in Deutsch 
EEEEEEBEEEENEERENEEN 


® 4 
Was gibt’s wo? 
Auf diesen Seiten können Sie unseren Lesern Ihr Angebot 
bestens präsentieren. 


Die RUN-Leserbefragung hat gezeigt, daß rund 85% der Leser 
die Anzeigen beachten und vor allem 68% Lösungen ihrer 
Probleme in Anzeigen suchen. Wenn unsere Leser also fragen: 
„Was gibt's wo?“, sollten sie doch auch Ihr Angebot in dieser 
Rubrik finden. Mindesteintrag 3mal, pro Schaltung DM 420,—. 


Farbmonitor 1084 
AMIGA 500 
AMIGA 2000 
PC/XT-Karte inkl 
Lautwerk 5,25’ * 


VC 1541 
Ve 1571 
Farbm. 18021.C 64 
Farbm. 1084.C 128 

Grünm.m.Ton+ Kabel 229,— 
PC/AT-Karte nicht vor t 
Ende Feb. 88 lieferbar **  Druckerparade xx 
2. Laufwerk f. A 2000 Epson LX-800 
Externes Lautw. 3,5°” Epson FX-800 
Externes Laufw. 5.25 * Epson FX-1000 breit 
Externes Laufw. 1010 R Epson EX-800 
Doppellaufw. 2x 3,5 ' ; Epson EX-1000 breit 
RAM-Erweiter. 512 KB Epson LO-850 
mit Uhr/Kalendert.A500 319,— EpsonLQ-1050 

Epson LO-2500 breit 

son SO-2500 Tinte 

TV-Modulator 80 Printer Plotter 
Commodore PC Il . Color-Kit EX800/ 1000 
Commodore PC 20 1 . NECP 6 
Commodore PC 40 AT 4198,— NECP öcolor 
20 MB Filecard Tandon NECP 7 
inkl. Controller 798,— NECP 7color 
20 MB Filecard Lapine LT 200 Star = u m. Interface 
m. Control —  StarND 1 
dito 1 2800 0hne Take oft 28 dr NX 15 breit 
30 MBFUjiALL 99 StarNB 24—10 
20 MB Seagate ST 225 StarNB 24—15 
30 MB Seagate ST 238 Einzelblatteinzug für 
40 MB Seagate ST 251 Star NL 10 269,— 
Controller Omti Wiesemann Intert. 9200 6 149,— 
Controller RLL Wiesemann Interf. 9208 6 169,— 
C 64 Ilmit Geos Merlin FaceC+ 1 
C 128 MerlinPP64V. 2.1 
. Druckerkabel IBM N 
Auslandslieferung für die Schweiz 
ab Lager Zürich 


Wangener Str. 99 

D-7980 Ravensburg, Telefon: 07 51/39 51 

Achtung! Nur Versand, Abholung der Geräte nur nach Absprache in 
Ausnahmen möglich. 


KOSMOGRAMM 64/128 :: = 


rufs- und Hobby-Astrologen — Nach Eingabe 
von Geb.ort (geogr. Lage) und Zeit werden er- 
rechnet: Sternzeit, Aszendent, Medium Coeli, 
Ephemeriden, Häuser n. Koch/Schäck — Ausga- 


be allgem. Persönlichkeitsbilder DM 
— Ausdruck auf 2 DIN-A4-Seiten ‚ er: 


GASINO-ROULETT 64/128 


Mit Schnellsimulation, Chancentest, Sequenzen- 
verfolgung — Kapitalbedarfsrechnung — Ge- 
winnplan — Häufigkeitsanalyse — macht den 
Anfänger zum 

Routinier , 


usw. usw. - Fordern Sie mit Freiumschlag unsere Liste an! 
Im Computer-Center oder bei uns zu obigen, unverbindlich empfoh- 
lenen Preisen + DM 3,- bei Vorkasse oder DM 4.70 bei Nachnahme 


Am Schneiderhaus 17 - D-5760 Arnsberg 1 MM 
- T81.02932/32947 MI 


SE GEWINNSPIEL 


SIEIF ON 


Spielesammlung 
Software für Sparsame 
Spiele-Neuheiten 


31 Spiele-Besprechungen 


„Ihe Last Ninja“: 
10x, JACK THE Karten für die letzten Level 
MIPPER' T-SHIRT : MIO 


Ariolasoft 


ushware 


EeISUures 


T-Shirts und Spiele 


Teilnahmebedingungen und Coupon auf Seite 145 ; 


PRDSIT! 


„.. und auf ein Neues! Das 
eilt für unsere Redaktion 
gleich in zweifacher Hin- 


sicht. Zum einen bieten 
wir unseren Lesern ein 
C64-Spiele-Sonderheft. 
Da haben C64-Freaks end- 
lich ein Heft, in dem es 
wirklich nur um Spiele für 
ihr System geht. Aktuelle 
Programmbesprechungen, 
Adventure-Lösungen und 
Karten, Programme zum 
Abtippen und Trickrei- 
ches für Spieler und Pro- 
grammierer werden die 
Schwerpunkte sein. Ami- 
ga-Besitzer können sich 
über die achtwöchig er- 
scheinende Amiga Welt 
mit der neuen Rubrik 
„Amiga verspielt“ freuen. 
Mit dem Grafik- und 
Soundwunder von Com- 
modore lassen sich 
schließlich Spiele höchster 
Qualität realisieren. Allen 
treuen RUN-Lesern wün- 
sche ich ein schönes neues 
Jahr, 

Carsten Borgmeier 


—, /sprip 


Für den C64 präsentiert 
Ocean „Computer Hits 10* 
mit Sportspielhits der letzten 
Jahre. Dabei sind: „Match 
Point“, „World Series Bas- 
ketball“, „Jonah Barring- 
ton’s Squash“ (eins der er- 
sten Spiele mit Sprachausga- 
be), Billardklassiker „Snoo- 
ker“, „Konami’s Ping 
Pong“, die beiden Olympia- 
Sportspiele „Hyper Sports“ 
und „Daley Thompson’s Su- 
pertest“, „Super Soccer“, 
„Basketball Two on Two“ 


und 


„Barry MecGuigan’s 
World Championchip Bo- 
xing“. Die Sammlung gibt es 
für 35 Mark, u.a. bei Elek- 
tronik von A-Z. 


Low-Budgets 


Alternative Software bringt 
„Football Frenzy“ für sport- 
begeisterte Adventure- 


Freaks heraus, die noch ge- 
nau 9,95 Mark für ein Spiel 
übrig haben. In dem Spiel 
gibt es eine Menge Schwie- 
rigkeiten vor dem entschei- 


denden Match, die sich mit 
einem Parser, der etwa 160 
Wörter versteht, nicht lösen 
lassen. 

Vollpreis-Spiel „Time Trax“ 


vom letzten Jahr wird von 
Bug Byte jetzt für 9,95 Mark 
angeboten. 

Auch Mastertronic denkt an 
schmale Börsen und produ- 


zierte im letzten Monat flei- 
Big Billigspiele für den C64. 
Für jeweils 9,95 Mark wer- 
den geboten: „Dragonskul- 
le“, „Outlaws“, „Rigel’s Re- 
venge“, „Spore“, „Blackwy- 
che“, „Agent X2“ und „Bos- 
conian“. 

Je 14,95 Mark kosten die 
Programme „Beach Head 
II“, „Saracen“, „Tallede- 
ga“, „Tennis“ und „Sun- 
burst“. 

In Mastertronic’s Spiele- 
Reihe Melbourne House er- 
scheinen „Street Hassle* 
und „Enterprise“. 


„Amegas“ heißt die sound- 
sovielteste Breakout-Varian- 


te für den Amiga. Golden 


Games veröffentlicht das 
Spiel, in dem mit Schläger 
und Ball eine Mauer zer- 
trümmert werden soll. Wer 
von dem Spiel noch nicht ge- 
nug hat, kann es sich für 59 
Mark bei Seemüller bestel- 
len. 

„Evening Star“ für den C64 
von Hewson Consultants ist 
der Nachfolger von „Sou- 
thern Bell“. Beide Program- 


me simulieren eine Lokomo- 
tivenfahrt. „Evening Star“ 
kostet auf Kass. 32 Mark, 
auf Disk. 44 Mark. 

Aus Ariolasofts deutscher 
Spielewerkstatt stammt 
„Hellowoon“. Das Adven- 
ture ist komplett in deut- 
scher Sprache verfaßt. Zar- 


rak, der Souverän eines ge- 
knechteten Volkes, will dem 
Treiben der bösen Herr- 
schermächte ein Ende berei- 
ten. Ihm dabei zu helfen, 


kostet auf C64-Diskette 
39,95 Mark und für den 
Amiga 69,95 Mark. 
„Wizardry* von Sir-Tech- 
Software, der Klassiker un- 
ter den Fantasy-Spielen ist 
endlich auf den C64 umge- 
setzt worden. Das Spiel wur- 
de in seinen bisherigen Ver- 
sionen für Apple II, Macin- 
tosh und IBM über 300.000 
mal verkauft. Für das näch- 
ste Jahr ist eine deutschspra- 
chige Version geplant. 
„Deep Space — Operation 
Copernicus“ wird ebenfalls 
von Sir-Tech hergestellt und 
von Panda-Soft vertrieben. 
Laut Hersteller ist es eine 
3D-Simulation, die alle bis- 
her festgestellten physikali- 
schen Gesetze des Weltalls 
nachahmt. Es ist eine 
Mischung aus Geschicklich- 
keits-, Baller- und Taktik- 
spiel. 


„Testdrive* von Accolade, 
das aufregende Autorennen 
(s. Review) für Leute mit 
starken Nerven und gutem 
Augenmaß gibt es jetzt für 
den C64. 


Im Hochgeschwindigkeits- 
rausch heizt man über kur- 
venreiche Pisten, haarscharf 
am Abgrund vorbei. 

„Clever & Smart“ in Stadt 
und Kanal. Magic Bytes er- 
weckte die Comic-Figuren 
auf dem C64 zum Leben. 
Die beiden Schlauköpfe su- 
chen in der ganzen Stadt — 
ober- und unterirdisch — 
nach dem entführten Dr. 
Bakterius. Erstklassige Gra- 


fik komplettiert die witzige 
Idee. Mastertronic vertreibt 
das smarte & clevere Spiel. 

Für den Amiga program- 
mierte Microdeal „Insanity 
Fight“. Abschießen und ab- 


geschossen werden, ist die 
Devise. Mit einem Starfigh- 
ter begegnet der Spieler ko- 
lossalen Zielscheiben...oder 
wird selbst eine. 

In „Mandroid“ geht es um 
die Vervielfältigung einer 


menschenähnlichen Kon- 
struktion. Das gibt Proble- 
me. Das C64-Spiel ist von 
CRL produziert worden. 
Die gleiche Firma jagt mit 
„Jack the Ripper“ kalte 
Schauer über den Rücken. 


Da fließt Blut! Vor genau 
100 Jahren sind tatsächlich 
diese schrecklichsten aller 
schrecklichen Morde verübt 
worden.‘ Nichts für sanfte 
Gemüter! 

Infogrames macht heiter. 
Und zwar mit „Sidewalk“, 
dem komischen Computer- 
comic für C64. Mit Faust 
und Verstand kämpft man 
sich durch’s Spiel. Blaue 
Augen gibt es nur am Bild- 
schirm. 

Infogrames erfreut Wasser- 
ski-Freunde mit einer Simu- 
lation für Könner und sol- 
che, die es werden möchten. 
„Championship Waterski- 
ing“ läuft auf dem C64 und 
C128. Sportlich präsentiert 
sich auch „Chamonix Chal- 
lange“. Dieser erste Alpini- 
stik-Simulator lockt nicht 
nur Jodler und Tiroler auf 
eisige Gipfel. 
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Herbert Barth, 4100 Duisburg 14; 
Raimund Bauer, 8908 Krumbach; 
Franz Bayer, 3207 Harsum 1; 
Frank Bednarz, 5276 Wiehl 3; 
Erwin Berger, 3322 Viehdorf, 
Österreich; 

Peter Bergold, 8534 Wilhermsdorf; 
Alain Bider, 1963 Vetroz, Schweiz; 
Christian Bodmer, 9204 Andwil, 
Schweiz; 

W. Bram, 7072 Heubach; 

Jens Brummermann, 3000 Hanno- 
ver 51; 

Pia Maria Dalsfeldt, 3460 Birke- 
röd, Dänemark; 

J. P. De Sutter, 1860 Oppem-Mei- 
se, Belgien; 

Frank Dirks, 2943 Esens; 

Markus Duhme, 4500 Osnabrück; 
Urs Jan Echternacht, 3550 Mar- 
bach/Lahn; 

Detlef Fahrtmann, 1000 Berlin 45; 
Carsten Fink, 8041 Graz, Öster- 
reich; 

Andreas Fischer, 5200 Siegburg- 
Kaldauen; 

Sven Folske, 3000 Hannover 51; 
Claus Franzen, 2240 Heide; 
Herbert Franzen, 5581 St. Alde- 
gund; 

Maik Galau, 4019 Monheim; 

Tino Gilbert, 7703 Worblingen; 
Iris Grewe, 4793 Büren; 

Mark Gruber, 7119 Forchtenberg; 
Michael Härtl, 8591 Falkenberg; 
Hagen Halbach, 7801 Umkirch; 
Bernd Hartwig, 4047 Dormagen 1; 
Michael Hartwig, 6090 Rüssels- 
heim; 

Stephan Hasberg, 5000 Köln 80; 
Markus Hilse, 1000 Berlin 20; 

Jan Holz, 2930 Varel 1; 

Andreas Jäger, 6054 Rodgan 6; 
Klaus Janz, 1000 Berlin 61; 
Thomas Jost, 4617 Gunzgen 50, 
Schweiz; 

Frank Kisikof, 7148 Remseck 2; 
Peter Klein, 5000 Köln 60; 

Carsten Kleineheinrich, 

4830 Gütersloh 1; 

Walter Kobylka, 1000 Berlin 49; 
Robin Köpf, 7340 Geislingen/ 
Türkheim; 

Krause Med.-Technik, 3017 Patten- 
sen 1; 

Volker Krebs, 7717 Immendingen; 
Thomas Kubis, 4100 Duisburg 11; 
Holger Kuhlmann, 5940 Lenne- 
stadt 1; 

Sven Lammers, 
chen; 

Thomas Leopold, 8721 Kützberg; 
Eddy Lesny, 2351 Wasbek; 
Achim Lichtenberger, 

7400 Tübingen; 

Timo Liebherr, 

7990 Friedrichshafen; 

Peter Loeser, 1000 Berlin 31; 


2358 Kaltenkir- 


Klaus Maier, 7890 Waldshut 1; 
Rainer Manz, 4760 Büllingen, Bel- 
gien; 

Günter Martens, 2740 Ebersdorf; 
Manfred Maurer, 8000 München 
90; 

Heinz Meyer, 2870 Delmenhorst; 
Thomas Meyer, 4750 Unna-Uelzen; 
Uwe Milde, 5064 Rösrath 3; 
Andreas Möllers, 4390 Gladbeck; 
Michael Moser, 8100 Garmisch- 
Partenkirchen; 

Hans Neumann, 3500 Kassel; 
Jeremy Noetzelmann, 8500 Nürn- 


berg 50; 

Klaus Oehm, 8565 Kirchensitten- 
bach 1; 

Maurizio Palumbo, 6380 Bad 
Homburg; 

Jörg Partzsch, 3014 Laatzen 1; 
Stefan Pecchielan, 39011 Lana 


(BZ), Italien; 

Thorsten Pelz, 5960 Olpe; 

Helge Pfeffer, 4973 Vlotho; 

Jürgen Pfeffer, 4300 Essen 1; 
Stephan Pfeil, 2850 Bremerhaven; 
Ralf Pickartz, 5014 Kerpen-Sin- 
dorf; 

Frank Rausseck, 4902 Bad 
Salzuflen 1; 

Christian Rieger, 6733 Haßloch; 
Joachim Rösler, 4600 Dortmund 1; 
Michael Romes, 5470 Andernach; 
Anton Sagmüller, 3193 St. Aegyd 
a.N., Österreich; 

Marcus Sauer, 5870 Herner; 
Harald Scheel, 2000 Hamburg 61; 
K.-H. Schilling, 8710 Kitzingen; 
Wilhelm Schimmelmann, 4600 
Dortmund 18; 

Alfred Schmid, 8134 Pöcking/Pos- 
senhofen; 

Matthias Schmidtke, 8500 Nürn- 
berg 50; 

Andreas Schmitz, 5609 Hückes- 
wagen; 

Christoph Schmitz, 5503 Konz; 
Lothar Schott, 4730 Ahlen 1; 
Christian Schrott, 8451 Theuern; 
Achim Schwarz, 7257 Diezingen 3; 
Reiner Schweinlin, 7400 Tübingen; 
Wolfgang Seelig, 2400 Travemün- 
de; 

Erich Seemann, 6200 Wiesbaden 27; 
Michael Seidlitz, 4350 Reckling- 
hausen; 

Matthias Sondermann, 5330 Kö- 
nigswinter 1; 

Ralf Straub, 7104 Obersulm-Sülz- 
bach; 

Markus Tenne, 6342 Haiger 1; 
Peter Tessmann, 4050 Mönchen- 
gladbach 1; 

Paul Theodoridis, 5909 Burbach; 
Elke Weil, 6309 Rockenberg 1; 
Michael Weyergans, 5000 Köln 90; 
Peter Wiebking, 3042 Munster; 
Martin Wirt, 5451 Melsbach; 
Frank-Peter Woska, 5900 Siegen 1. 
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Galaktisches 
Kaffeekränz- 
chen 


Alternative Software wirft 
in der „Triple Decker“-Serie 
Low Budgets auf den 
Markt. Viel Spaß gibt es mit 
„Galaxions“. Da sind Treff- 
sicherheit und blitzschnelle 
Reaktion gefordert. Und 
das, obwohl die Geschichte 
so harmlos beginnt. Denn 
eigentlich will unser Raum- 
schiff-Kapitän nur seine 
Schwiegermutter auf Ceti 
Alpha besuchen. Kaffee und 
Kuchen stehen bereit. Aber 
der Kaffeefreund wird von 
Aliens aufgehalten. Der 
C16-Freak wird dabei eben- 
falls seinen Kaffee kalt wer- 
den lassen, so fesselnd ist 
„Galaxions“. Das kann man 
von „Mission Mars“ jedoch 
nicht behaupten. Die Grafik 
flackert wie ein Kaminfeuer. 
Und bei diesem Anblick mit 


Ungeziefer im Weltall 


einer Sonde durch Tunnels 
schweben und Raumschiffe 
abschießen? „Quick Draw“ 
sollen zwei Cowboys aufein- 
ander schießen. Aber wie? 
Sie können sich überhaupt 
nicht sehen. Durch grauen- 
hafte Farben kann man so- 
wenig erkennen wie in einer 
Nebelbank. (cb) 


Name: Triple Decker, Galaxions 
System: C16 

Preis: 9,95 Mark 

Hersteller: Alternative 
Bezugsquelle: 4 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: ee ee e 00000 


s...uu.e.e.unöo 
s.s.se.eseuüonoöNn 
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Mauer-Power 


Breakout-Spiele boomen 
immer noch. „Arkanoid“ 
von Imagine Software und 
„Krakout“ von Gremlin 
Graphics lösten das Break- 
out-Fieber aus. Seitdem 
überschwemmen die Her- 
steller den Markt mit Ver- 
schnitten dieser Spieleart. 
Doch die Faszination, mit 


Zerhauen statt bauen 


Schläger und Kugel Steine 
aus Mauern zu schießen, ist 
ungebrochen. In die übliche 
Knallerei hat jetzt Audioge- 
nic bei „Impact“ einen kom- 
fortablen Screen-Editor 
nach „Breaker“-Art einge- 
baut. So schlägert es sich an- 
genehmer durch 80 anstren- 
gende Level. Im übrigen bie- 
tet die neu aufgelegte Spiel- 
idee nichts Neues. Features 
wie reduzierte Ballgeschwin- 
digkeit, Bälle, die am Schlä- 


ger haften, gleichzeitiges 
Spiel mit drei Kugeln und 
vergrößerte Schlagfläche 


sind alte Hüte, die man 
schon aus „Arkanoid“ und 
„Krakout“ kennt. Doch 
nicht nur die abgekupferte 
Idee, sondern auch miese 
Grafik im C16-Stil verär- 
gern anspruchsvolle Amiga- 
Besitzer. (cb) 


Name: Impact 
System: Amiga 

Preis: Disk. 49,95 Mark 
Hersteller: Audiogenic 
Bezugsquelle: 4 


Spaß: 

Grafik: 

Sound: 

Idee: 

Schwierigkeit: ee eeeee0Q000 


EN ra a Ag 


Käsedieb auf 
Abwegen 


Marvin-Maus fühlt sich 
mauseelend. Mäusedame 
Meryl hat ihn wegen eines 
anderen verlassen. Warum? 
Weil er es nie zu etwas ande- 
rem als zum raffinierten Kä- 
sedieb bringen wird. Das 
spornt den Mäuserich zu 
größeren Taten an. Alles, 
was nicht niet- und nagelfest 
ist, schnappt er sich, um zu 
Reichtum und Ruhm zu ge- 
langen. Bei dieser illegalen 
Tätigkeit darf der Spieler 
mit dem Joystick mitmi- 
schen. Er läßt die Maus hüp- 
fen und klettern, schickt sie 
über Leitern und Plattfor- 
men, bis alle umherliegen- 
den Dinge aufgeklaubt sind. 
Quietsch ... . öffnet sich eine 
Mausetür und Marvin sti- 
bitzt im nächsten Level. 


Herumlungernde, niedliche 
Sprites dürfen dabei nicht 


Maus unter Druck 


berührt werden. Die Maus 
muß sich trotz aller Vorsicht 
beeilen und ihr Zeitlimit ein- 
halten. Auf dem C64 ist der 
Sound besser als auf dem 
Amiga, doch dafür mangelt 
es an der Grafik. 

(Der Bewertungskasten .be- 
zieht sich auf die Amiga- 
Version). (cb) 


Name: Mouse Trap 
System: Amiga / C64 
Preis: Disk. 49,95 Mark 
Hersteller: Micro Value 
Bezugsquelle: 4 


Spaß: 
Grafik: 
Sound: 
Idee: 


...ssu.—».„.&—._ 000 
Schwierigkeit: eeeeeo00.0 


Schiffe 
versenken 


Bleistift und Papier werden 
überflüssig. Zumindest beim 
Schiffeversenken, denn Elite 
hat dieses Schülerspiel zu ei- 
ner Simulation umgearbei- 
tet: „Battleships“. Das ist 
die Version für den Heimge- 
brauch; für langweilige Ma- 
thestunden ist sie allerdings 


nicht geeignet. Alles übrige 
ist wie im Urspiel. Schiffe 
werden mit Fadenkreuzen 
im Koordinatensystem posi- 
tioniert. Spieler I nimmt mit 
dem Fadenkreuz Punkte im 
Koordinatensystem auf’s 
Korn. Vielleicht hat der 
Gegner dort ein Schiff vor 
Anker. Schuß! Die Treffer 
wertet der Computer aus. — 
Szenenwechsel — Ein Schiff 
mit aufgesetzter Flak er- 
scheint; darüber hinweg 
zieht ein Flugzeuggeschwa- 
der. Für jedes Schiff, das 
der Spieler getroffen hat, 
wird eins der Flugzeuge ab- 
geschossen. Jedes Schiff, 
das vom schießwütigen Spie- 
ler erwischt wurde, versinkt 
dramatisch am Bildschirm- 
rand. All diese Abläufe wie- 
derholen sich, so daß „Batt- 
leships“ schnell an Reiz ver- 
liert. (cb) 


Name: Battleships 

System: C64 

Hersteller: Elite 

Spiel nach Redaktionsschluß zurück- 
gezogen 


Spaß: 
Grafik: 


s....u.,.(0000 
..uu.u...,;,0 
Sound: v....,.—,—}000 
Idee: ......—.,..OÖ 
Schwierigkeit: © 000000000 


Freundschafts- 
preis für gute 
Leistung 


Neue Low-Budget-Reihe 
von Alternative Software! 
Jeweils drei C16-Spiele fül- 
len eine „Triple Decker“- 
Kassette. Auf der ersten im 
Bunde findet man „Space 
Freek“, „Suiside Run“ und 
„Meteorites“. Mit „Space 
Freek“ leuchtet ein farben- 
froher „Galaxion“-Ver- 
schnitt über den Bildschirm. 
Bei überdurchschnittlicher 
Grafik und ebensolchem 
Sound rauscht man mit sei- 
nem Raumschiff auf bösar- 
tige Aliens zu und schießt sie 
ab. Trotz antiquierter Idee 
wird man viel Spaß haben. 
Das trifft auf „Suiside Run“ 
nicht zu. Miese Farben sind 
schuld an undeutlichen Bil- 
dern. Nicht besser ist die 
Spielidee: Über Gebirgs- 
landschaften fliegen und 


LEVEL 02 


Weltraum-Safari 
Treibstofftanks abknallen. 
Langweilig! Dagegen ist 


„Meteorites“ nicht schlecht. 
In der Adaption des Spiel- 
hallen-Hits schießt man 
Asteroiden ab und weicht 
den Trümmern aus. Immer- 
hin handelt man sich mit 
„Iriple Decker, Space 
Freek“ zwei gute Spiele ein. 


Name: Triple Decker, Space Freek 
System: C16 

Preis: Kass. 9,95 Mark 

Hersteller: Alternative 
Bezugsquelle: 4 


Spaß: 
Grafik: 
Sound: 
Idee: 


.v...ua.,.— ..,—0,”> 
...uo.sau..,—.,;o—00 
.v..uss.e.unnOo 
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Endlich mal wieder eine 
Dame am Bildschirm! Doch 
diese widmet sich einem sehr 
un-damenhaften Sport. Sie 
joggt über den Bildschirm 
und springt und federt über 
allerhand komische Lebewe- 
sen. Berührt sie so ein Hin- 
dernis, müßte sie eigentlich 


Athena, ein Spring-ins-Feld 


auf die Nase fallen. Aber 
das muten ihr die Program- 
mierer nicht zu. Dennoch 
wird jeder Fehler auf diesem 
seltsamen Parcour aus run- 
den Schildkrötenknäueln, 
skurrilen Neanderthalern 
und ätherischen Gespen- 
stern geahndet. Athena ver- 
liert bei Berührung Energie. 
In anderen Leveln ist sie 
dazu verdonnert, Gerümpel 
einzusammeln, bevor sie Zu- 
tritt zum nächsten Level hat. 
Dabei ist ein Level in grafi- 
scher Hinsicht wie der ande- 
re. Der Hersteller verspricht 
Spaß und Motivation durch 
herausfordernde Level. 
Doch, wie frustrierend, 
wenn Athena schon im erst- 
en Level über einen unüber- 
windbaren Felsen springen 
soll! Das einzig Schöne an 
dem Spiel ist der gute Mar- 
tin-Galway-Sound. (cb) 


Name: Athena 

System: C64 

Preis: Kass. 32 Mark, Disk. 44 Mark 
Hersteller: Imagine 

Bezugsquelle: 5 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: ee ee oe 9009090 
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Tod den 
Aliens! 


Ein brandneues Simula- 
tionsspiel? Das glaubt jeder, 
der den Beipackzettel liest. 
Doch es handelt sich bei 
dem Spiel um eine gewöhnli- 
che Aliens-Abschießerei. Da 
steuert der Spieler ein 
Raumschiff über den verti- 
kal scrollenden Bildschirm 
und freut sich über die vie- 
len, vielen Aliens. Diese 
Phantasiefeinde sind nur 
dazu bestimmt, abgeknallt 
zu werden. Ein ungleicher 
Kampf, denn der Pilot darf 
vier mal leben. Diesen Lu- 
xus sollte man jedoch nicht 
überschätzen, denn eine Exi- 
stenz ist durch Unvorsichtig- 
keit schnell verspielt. Neben 
den monströsen Aliens sollte 
unbedingt die Treibstoffan- 
zeige im Auge behalten wer- 
den. Ein leerer Tank bedeu- 
tet, ein Leben weniger. Da 


Alienjagd am Sternenhimmel 


spart man vorsichtshalber 
für den zweiten Level, der 
erst gespielt werden kann, 
wenn der Level-Wächter 
blindgeschossen ist. Diese 
plattgetretene Idee wird mit 
einer Grafik präsentiert, die 
den Amiga eindeutig unter- 
fordert. (cb) 


Name: Plutos 
System: Amiga 
Preis: Disk. 49,95 Mark 
Hersteller: Micro Value 
Bezugsquelle: 4 


Spaß: 

Grafik: 

Sound: 

Idee: ) 
Schwierigkeit: ee ee eee00C 


Kugel killt 
Kästchen 


Ein neues Spiel mit — end- 
lich mal — neuer Idee: „Dia- 
bolo“. Golden Games pro- 
duzierte den diabolischen 
Spaß, der sich auf einer 
Screen mit ungefähr 100 
Kästchen abspielt. Jedes ist 
röhrenförmig durchbohrt. 
Wie bei Schiebepuzzeln ist 


Labyrinthische Röhren 


ein Feld unbesetzt. Mit dem 
Joystick kann man nun die 
Kästchen hin- und herschie- 
ben, bis aus den durchgängi- 
gen Fragmenten ein Laby- 
rinth ohne Sackgassen ent- 
standen ist. Ein Fadenkreuz 
ist bei dieser Aufgabe behilf- 
lich. Durch dieses Wirrwarr 
wird mit dem Joystick eine 
Kugel gesteuert. So läßt sich 
der Parcours meistern und 
die Kugel durch alle Käst- 
chen rollen. Nachdem einer 
dieser Bausteine durchquert 
ist, verschwindet er. Auf 
diese amüsante Art räumt 
der Spieler den ganzen Bild- 
schirm leer, um im folgen- 
den Level ein neues Laby- 
rinth zusammen zu schieben 
und zu schachteln, das er 
mit der Kugel durchrollen 
und durchkullern kann. (cb) 


Name: Diabolo 

System: C64(getestet)/Amiga 
Preis: Disk. 35 Mark 

Hersteller: Golden Games/Robtek 
Bezugsquelle: 5 
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Spaß: 
Grafik: 
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Me 


Ein Air-Force-Pilot ist Ge- 
schäftsführer bei Action 
Soft. Die Firma beglückt die 
Spielewelt mit militärischen 
Simulationen. Bei der 
neuesten Produktion erhebt 
sich der Spieler mit einem 
Hubschrauber in die Lüfte. 
An der erstaunlichen Reali- 
tätsnähe hat Simulations- 
spezialistt Sublogic seinen 
Anteil, ist er doch für den 
Großteil der Grafiken und 
Routinen verantwortlich. 
Doch der Spieler will neben 
solchen Äußerlichkeiten 
auch Action. Die bekommt 
er! Aber zuerst widmet er 
sich dem Flugtraining, um 
sich die Routine anzueignen, 
die er für seine zukünftigen 
Aufgaben braucht. Denn er 
wird in seinen Missionen 


Militäreinheiten eskortieren, 
Ertrinkende retten, militäri- 


Hilfe oder Zerstörung aus der Luft 


sche Ziele anvisieren und 
zerstören. Dabei steuert der 
Computerpilot über Tasta- 
tur und Joystick. Aller- 
dings: Ehe er damit loslegen 
kann, muß er das 63-seitige, 
englische „Helicopter Ope- 
rations Handbook“ durch- 
arbeiten. (cb) 


Name: Thunderchopper 
System: C64 

Preis: Disk. 79,95 Mark 
Hersteller: Action Soft 
Bezugsquelle: Fachhandel 


Spaß: 
Grafik: 
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Flippern für 
Vier 


Seit es Homecomputer gibt, 
sind Flippersimulationen 


eins der Lieblingsthemen für 
Computerspiele. Aber, wie 
man an den meisten Umset- 
zungen sieht, ist es fast un- 
möglich, die aufregende At- 
mosphäre der Spielhalle zu 
vermitteln. So auch bei „Mi- 


Flippern und sparen 


cro Ball“. Immerhin: Bis zu 
vier Spieler können sich der 
Kugelschießerei hingeben. 
Per Return-Taste wird die 
Teilnehmerzahl bestimmt 
und die Kugel, auf Druck 
der Space-Taste, in den Mit- 
telpunkt des Interesses ge- 
rollt. Sie kullert gegen Prall- 
blöcke, trudelt über Felder, 
fällt in Schächte. Punkt um 
Punkt addiert der Computer 
die erzielten Werte, bis die 
Kugel in den Schlund rollt, 
— das ist der Moment, den 
jeder fanatische Flipperer 
fürchtet. Doch mit den Spa- 
ce-Tasten könnte man die 
Kugel aufhalten. Wer ist so 
geschickt? Und wer fühlt 
sich durch ungeschickte 
Grafiken motiviert, zumal 
der Sound nur ein dünnes 
Piepen ist? Selbst seine 9,95 
Mark ist das Spiel nicht 
wert. (cb) 


Name: Micro Ball 

System: C64 

Preis: 9,95 Mark 

Hersteller: Alternative Software 
Bezugsquelle: 3 


Spaß: 
Grafik: 
Sound: 
Idee: 


Titelkampf im 
Al 


In der freien Wirtschaft hilft 
ein akademischer Titel be- 
kanntlich über manche Hür- 
de. Diese Sitte ist auch bei 
außerirdischen Kampfpilo- 
ten bestens eingeführt. Je 
höher der akademische 
Grad, desto besser klettert 
der Absolvent die Karriere- 
leiter hinauf. Den Allerbe- 
sten ist es vorbehalten, ihr 
Können in der „Kromazo- 
ne“ unter Beweis zu stellen. 
Dabei startet der nervöse 
Prüfling mit einer engen 
Raumkapsel ins Ungewisse. 
Feindliche Kampfgeschwa- 
der halten ihn für leichte 
Beute Nach jeder Kampf- 
welle teilt die Prüfungskom- 
mission dem verstörten Stu- 
denten mit, ob er sich gut 
geschlagen hat, sofern er 


noch am Leben ist. Und da- 
für soll der Spieler sorgen. 


Schicksalhafte Prüfung 


Eine Aufgabe, die nicht 
leicht ist, da das Programm 
sich viel Zeit nimmt, auf die 
Joystick-Impulse zu reagie- 
ren. Über diesen Mangel 
kann man aber angesichts 
guter Grafik und akzeptalen 
Sound hinwegsehen und das 
Spiel für 14,95 Mark ruhig 
kaufen. (cb) 


Name: Kromazone 
System: C64 

Preis: 14,95 Mark 
Hersteller: Mastertronic 
Bezugsquelle: 3 


Spaß: 
Grafik: 
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Alien-Krieg im 
Jahr 2150 
Low-Budget-Software be- 


schränkt sich fast nur auf 
Ballerspiele. Mastertronic’s 


„Starlifter“ fügt sich in die- 
sen Reigen ein. Darin erlebt 
man einen tobenden Alien- 
Krieg im Jahre 2150. Aus- 
nahmsweise darf sich der 
Spieler 


hier mit einem 


Kämpfen für die Aliens 


Außerirdischen identifizie- 
ren, während er in den 
meisten Spielen Jagd auf 
diese Rasse veranstaltet. 
Doch diese Aliens sind gut- 
artig und haben ihrerseits 
unter dem Krieg mit feindli- 
chen Wesen zu leiden. Also: 
Den Daumen auf den Feuer- 
knopf und losballern! Ein 
feindliches Raumschiff nach 
dem anderen soll abgeschos- 
sen werden; der Computer 
bestimmt, wieviele man pro 
Level treffen muß. Kaum ist 
ein Level leergeräumt, 
schwirrt eine neue Raum- 
flotte auf den gestreßten 
Alien zu. Da fragt man sich, 
ob man weitere Energien in 
die geistlose Handlung inve- 
stieren soll. Über die Grafik 
darf man sich allerdings 
nicht beschweren; sie ist, ge- 
messen an anderen Low- 
Budget-Spielen, akzeptabel. 


Name: Starlifter 
System: C64 

Preis: 9,95 Mark 
Hersteller: Mastertronic 
Bezugsquelle: 4 


Spaß: 
Grafik: 
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RUN ist ein Mitglied der International Data Group, 
der Welt größter Verleger für computerbezogene In- 
Jformationen. Die Gruppe veröffentlicht 90 Computer- 
Publikationen in 29 Ländern. 14 Millionen Menschen 
lesen eine oder mehrere Publikationen dieser Gruppe 
pro Monat. Die Mitglieder sind am CW-Communica- 
tions International News Service angeschlossen, einem 
täglichen Nachrichtendienst für die aktuellsten Mel- 
dungen aus dem internationalen DV-Geschehen. 


Wir suchen für 
nA TEE. An A 


Programmautoren, 
Testexperten, 


freie Mitarbeiter, 
Bastler. 
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Sie sollten Erfahrung im Umgang mit Computern, 
aber auch Kenntnisse der zugehörigen Hard- und Soft- 
ware haben. Kontaktfreude und Grundkenntnisse der 
güngigsten Programme wie Textverarbeitung und 
Grafik setzen wir voraus. Die Honorierung entspricht 
der vergleichbarer Verlage. Eventuell anfallende Rei- 
sekosten werden ersetzt. Eine Textprobe von einem 
möglicherweise bereits veröffentlichten Beitrag würde 
uns natürlich sehr freuen. Für einen ersten Kontakt 
steht Ihnen zur Verfügung: 


Siggi Pesch 

Tel. 0 89/3 60 86-210 
CW-Publikationen Verlagsgesellschaft mbH 
Redaktion RUN 
Rheinstr. 28 
8000 München 40 


Rockiges 
Noten-Puzzle 


Insider erinnern sich. Vor 
drei Jahren brachte Master- 
tronic das Musikspektakel 
„Jammin“ auf den Markt 
und erfreute musisch ange- 
hauchte Computerspieler. 
Mit Teil II kann wieder mu- 
siziert werden. Dabei hat der 


Komposition für Sammlernaturen 


Spieler die Qual der Wahl. 
Geht er mit Rodney oder mit 
Rachel zum Notensammeln? 
Wählen wir Rockin’ Rod- 
ney. Für ein neues Musik- 
stück soll der Bube Noten in 
den unmöglichsten Verstek- 
ken suchen. Ihm steht eine 
anstrengende 60-Level-Tour 
mit Unannehmlichkeiten 


und Überraschungen bevor. 


öPIELF 


Mit einem Fließband macht 
er sich auf den Weg. Zwi- 
schen jeweils zwei Bändern 
befinden sich enge Schächte, 
die Rodney nach Noten 
durchforschen soll. Hüpf! 
Runter vom Band, und in 
den Schacht gekrabbelt. Da 
liegt tatsächlich eine Note. 
Kaum hat unser Held sie 
aufgehoben, — zack! — ist 
sie in das Notensystem am 
oberen Bildschirmrand ein- 
gereiht. Aber so einfach, wie 
sich das anhört, ist es nicht, 
denn freche Quälgeister stö- 
ren den kleinen Rodney. So- 
gar vor manchen Noten muß 
er sich in acht nehmen; so- 
bald er sie berührt, fliegt 
eine der mühsam ergatterten 
Noten aus dem Notensystem 
und zurück in einen 
Schacht. Und dann ginge die 
Tortur von neuem los. Her- 
umfliegende Joysticks sind 
ebenfalls mit Vorsicht zu ge- 
nießen; wenn Rodney es zu 


einer Kollision mit den — 
sonst so harmlosen 
Steuergeräten kommen läßt, 
schwankt er wie ein Wer- 
mutbruder durch den Level. 
Ursache: Das boshafte Pro- 
gramm bringt die Joystick- 
steuerung durcheinander, 
was aber den Spielspaß nicht 
schmälert. Trotz mittelmä- 
Biger Hintergrundgrafik hat 
der Käufer für 9,95 Mark 
ein tolles Spiel, denn heiße 
Rockrhythmen und gelunge- 
ne Sprites sind das Geld auf 
jeden Fall wert. (cb) 


Name: Beat it 

System: C64 

Preis: 9,95 Mark 
Hersteller: Mastertronic 
Bezugsquelle: Fachhandel 


Spaß: 
Grafik: 
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System 3, der Spezialist für 
fernöstliche Kampfspiele 
hat wieder zugeschlagen. 
Mit „Last Ninja“ und „In- 
ternational Karate“ stürmte 
er die Hitparaden. Jetzt ist 
der Nachfolger des legendä- 
ren „International Karate“ 
zu haben: „International 


Sieg und Niederlage im Morgenland 
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Karate Plus“. Im neuen Ti- 
tel stehen sich gleich drei 
Kämpfer gegenüber. Jeder 
kämpft gegen jeden. Mit 
klassischen Karatetritten 
und Schlägen, mit Saltos 
und Fauststößen versucht 
der Raufbold seine Gegner 
fertig zu machen 17 ver- 
schiedene Kampfhandlun- 
gen, die mit dem Joystick 
gesteuert werden, bringen 


Abwechslung und Action. 
Halbzeit! Auf dem Bild- 
schirm erscheint ein Greis. 
Es ist der Schiedsrichter, der 
sich den schrecklichen 
Kampf angesehen hat und 
nun entscheidet, wer die 
meisten Punkte erkämpft 
und die Schlacht gewonnen 
hat. Er bestimmt auch, ob 
ein Kämpfer wegen starker 
Verletzungen aus der Runde 
ausscheidet. Besonders er- 
folgreiche Schläger gehen 
aus mindestens zwei Kämp- 
fen als Sieger hervor und 
verdienen eine Bonusrunde. 
Das ist eine ganz brutale 
Sache, denn da fliegen eiser- 
ne Kugeln auf ihn zu. Nur 
mit Schnelligkeit und Ge- 
schick kann er die Geschosse 
mit einem stabilen Schild 
abwehren. Nicht auszuden- 
ken, wenn er von dem ge- 
schleuderten Eisenball getrof- 
fen würde. Wie um die tod- 
ernsten Aspekte des Spiels 
abzuschwächen, ertönen 


liebliche chinesische Melo- 
dien. Dieser tolle Sound un- 
termalt die fernöstliche At- 
mosphäfre perfekt. Aber wen 
wundert es? Soundmagier 
Rob Hubbard aus England 
war an der Arbeit und pro- 
duzierte Musik höchsten Ni- 
veaus. Genauso gut ist die 
Grafik. Was sich aus dem 
C64 rausholen ließ, holten 
die Programmierer heraus. 
So entstanden beachtliche 
Hintergrundgrafiken und 
Animationen der Kämpfer. 
(cb) 


Name: International Karate Plus 
System: C64 
Preis: Kass. ca. 35 Mark, 

Disk. ca. 49,95 Mark 
Hersteller: System 3/ Activision 
Vertrieb: Ariolasoft 


Bezugsquelle: 4 
Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: eeeeeeee00 


2 » 
Mit Power ins 
Weihnachts- 
geschäft 
Rushware hat was Feines für 
Spielefreunde: Einen Spiele- 
sampler mit zehn Program- 
men. Erfolgsspiele wie 
„Mission Elevator“ sind da- 
bei. RUN-Lesern kommt 
das Agentenspiel bekannt 


Zn 


vor. Wir stellten die Amiga- 
Version in Heft 12 vor. Su- 
peragent Trevor hat den 
Auftrag, im FBI-Hochhaus 
eine Bombe zu entschärfen. 
Dazu muß er sich zuerst ins 
64. Stockwerk kämpfen, wo 
sich die Explosion ereignen 
würde. Genauso bekannt ist 
„Fist II“, das fernöstliche 
Kampfspiel. Auf der Suche 


„Fist II“: Mit Grips und Karate zum Tempel 


nach uralten Schriftrollen 
und geheimen Tempeln 
kommt es zu actiongelade- 
nen Karateprügeleien. Tolle 
Animationen und durch- 
dringende Kampfschreie 
machen selbst müde Spieler 
munter. „Solo Flight“ ist ein 
bekannter Flugsimulator. 
„W.A.R.“ sollte eigentlich 
die Züge von „Uridium“ tra- 
gen, dieser Versuch ist aller- 
dings danebengegangen. 
Sound und Grafik sind ak- 
zeptabel. In „Suiside Voya- 
ge“ fliegt der Spieler mit ei- 
nem Raumgleiter durch ein 
Höhlenlabyrinth und 
forscht nach einer Energie- 
quelle. Ein edles Unterfan- 
gen angesichts der Energie- 
krise. „Speed Boat“ ist das 
Richtige für verhinderte 
Rennbootfahrer. Vier rasan- 
te Runden soll der Kahn in- 
nerhalb eines gesetzten Zeit- 
limits drehen. Bei „Mad- 
ness“ handelt es sich gewis- 


sermaßen um ein Nebenpro- 
dukt des Hauses Rainbow 
Arts. Sounds von Chris 
Hülsbeck sind die Attrak- 
tion, über den Spielinhalt 
läßt sich streiten. Judokas 
können sich an „Uchi Mata“ 
versuchen. Der Computer 
wird versuchen, sie mit Oso- 
togari, Ogoshi und anderen 
fiesen Würfen auf die Matte 
zu knallen. Auf den zwei 
Datenträgern sind ebenfalls 
„Zoids“ und „Magic Mad- 
ness“. Zehn Erfolgstitel für 
einen fairen Preis. Das lohnt 
sich! (cb) 


Name: Power Pack 
System: C64 
Preis: 2 Kass. 29,95 Mark, 

2 Disk. 39,95 Mark 
Hersteller/Vertrieb: Rushware 
Bezugsquelle: 6 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: ee eeeo09_7: 


Glücksspiel im 
Monsterland 


Chuck und John Dougherty 
programmierten „Legacy of 
the Ancients“ für Quest 
Software. Electronic Arts 
vertreibt das Rollenspiel für 
den amerikanischen Soft- 
ware-Neuling. Wer möchte 
einen Blick in die geheimnis- 
volle Welt von Monstern, 


Mauern und Magie werfen? 
Dazu müßte er in die Rolle 


eines Museums-Hausmei- 
sters schlüpfen. Und das 
will er. Seine Neugierde 


kommt nicht zur Ruhe. Und 
tatsächlich erwarten ihn an- 
dere Aufgaben, als von früh 
bis spät Ausstellungsstücke 
abzustauben. Ein wertvoller 
Artefakt ist verschwunden. 
Da hier irgendetwas nicht 


Durch schummerige Gänge mitten ins Abenteuer 
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mit rechten Dingen zugeht, 
stellt der Hausmeister Nach- 
forschungen an. Nur in der 
gefürchteten Welt von Ta- 
malon kann er fündig wer- 
den. Diese schreckliche Zwi- 
schenwelt wird von 32 ver- 
schiedenen Monster-Species 
bevölkert. Zu seiner Beruhi- 
gung gibt es aber zwölf 
Städte im Phantasieland. 
Dort findet er zu seinem 
Entzücken Banken, Waffen- 
läden, Pfandhäuser und an- 
dere nützliche Einrichtun- 
gen vor. Denn er braucht 
eine Menge Gold, um seine 
Aufgabe erfüllen zu kön- 
nen. Manchmal kommt sei- 
ne Spielernatur durch und er 
erlangt manchen Goldklun- 
ker beim Zocken. Auch auf 
die unfeine Art bessert er 
sein Budget auf: Ein kleiner 
Raubüberfall, und die Kasse 
stimmt wieder. Klar, daß 
dabei der Charakter leidet. 
Seine Eigenschaften ändern 
sich während des- Spiels und 


werden auf der Charakter- 
Disc gespeichert. Sie gibt 
Auskunft über Veränderun- 
gen der Ausdauer, Kampf- 
stärke und Intelligenz. Da- 
mit der gute Mann seine Ei- 
genschaften auch einsetzen 
kann, steuert der Spieler ihn 
mit Joystick in alle Him- 
melsrichtungen. Auf länge- 
ren Druck des Feuerknopfes 
leuchtet eine Befehlsleiste 
mit Spezialfunktionen auf. 
So kann der Held kämpfen, 
etwas untersuchen, klettern 
oder zaubern. (cb) 


Name: Legacy of the Ancients 


System: C64 

Preis: Disk. 59,95 Mark 
Hersteller: Electronic Arts 
Vertrieb: Rushware 


Spaß: 


Realisation: 
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Allein gegen 
den 
Größenwahn 


Mayhem, verschlagen und 
gefährlich, ist der Mann, der 
erst zufrieden ist, wenn er 
die Welt beherrscht. Seine 
Handlanger sind zahlreich 
wie die Ameisen und tücki- 


Agentenschicksal vor Kieseldesign 
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scher als Füchse. Wer kann 
den bedrohlichen Betreibun- 
gen Einhalt gebieten? Ganz 
klar. Es muß ein Mann sein, 
der hart ist wie Kruppstahl 
und clever wie Einstein. Ge- 


witzter und kampferprobter 
als Rambo. Aber keine Sor- 
ge, strategische Überlegun- 
gen sind gefragt, ein Macho 


ohne Grips kommt hier 
nicht weiter. Schließlich soll 
er nicht nur vernichten, son- 
dern die bedrohte Mensch- 
heit retten. Dazu schwingt er 
sich in seinen Panzer und 
macht sich auf die Suche 
nach gefangenen Agenien. 
Je zwei dieses gefahrvollen 
Berufsstandes soll er pro 
Örtlichkeit befreien. Nicht 
leicht, denn bevor er einen 
Agenten finden kann, müs- 
sen zuerst acht Schlüssel 
aufgesammelt werden. Um 
diese Dinger zu entdecken, 
durchstreift er unwirtliche 
Gebiete mit Kratern, Felsen, 
Sand und Kakteen. In die- 
sem Gewirr liegen Masken, 
Bomben, Scanner, Werk- 
zeuge und die besagten 
Schlüssel herum. Die richti- 
ge Zusammenstellung der 
Schlüssel in einem kleinen 
Fenster aktiviert einen Scan- 
ner, der mit einem Pfeil an- 


zeigt, wo der nächste Agent 
auf Rettung wartet. Doch 
die feindliche Armee ruht 
nicht. Mit Panzern donnern 
sie dem Helden entgegen 
und feuern aus allen Roh- 
ren. Da hilft nur zurückbal- 
lern. Weder auf Spielspaß 
noch auf gute Grafik muß 
der Spieler dabei verzichten. 
Als Bonbon darf man den 
Supersound von Ben Dalish 
bezeichnen. Allerdings hat 
man kein leichtes Spiel. (cb) 


Name: Mask 

System: C64 

Preis: Kass. 35 Mark, Disk. 49,95 Mark 
Hersteller: Gremlin Graphics 
Bezugsquelle: 5 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: eeeeo0000®0 


„Star Paws“, das Vielgelob- 
te, hat einen Nachfolger: 
„Hysteria“. Fanatische Sek- 
tierer sind es, denen die 
Machtstrukturen unserer 
Zeit nicht gefallen. Diese 
Revolutionäre sind wissen- 
schaftlich so beschlagen, 


daß sie ausgestorbene Mon- 
ster durch die Zeitzonen 
schleusen konnten. Mit sol- 
chen Kreaturen glauben sie, 
stärker als die Geschichte zu 
sein, aus der sich heutige 
Herrschaftsverhältnisse ent- 
wickelte. Um nicht zu erle- 
ben, wie eine wahnsinnige 
Vision Realität wird, findet 
sich bestimmt ein Spieler, 
der die Reise in die Urzeit 


Aus der Hypermoderne in die Steinzeit reisen 
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antritt. Denn die Katastro- 
phe ist nur vermeidbar, 
wenn die Monster in neoli- 
thischen Zeiten getötet wer- 
den. Molekülverwirbelun- 
gen sollen das Unmögliche 
möglich machen: Die Reise 
in die Vergangenheit. Tat- 
sächlich findet sich der Spie- 
ler schwuppdiwupp inmitten 
einer Horde Neanderthaler 
wieder, die sich absolut 
nicht für Zeitreisende begei- 
stern. Doch für solche Fälle 
hat man den hochmodernen 
Energiewandler dabei, der 
harmlose Dinge in haar- 
sträubende Waffen verwan- 
delt. Die armen Neandertha- 
ler! Mancher Urmensch ist 
so verwirrt, daß er dem Ein- 
dringling sogar einen Tip 
gibt. Das sieht so aus, daß 
der Spieler ein Mosaikstück- 
chen von ihm bekommt. 
Wie ein Puzzle müssen alle 
Steinchen zusammengefügt 
werden; erst dann ist ein 
Monster enttarnt und dem 


Reisenden durch die Zeit 
ausgeliefert. Und ab in den 
nächsten Level, wo wieder 
um das Bestehen der heuti- 
gen Welt gekämpft werden 
muß. Guter Unterhaltung 
darf sich der Spieler sicher 
sein, über die Grafik kann er 
sich nicht beschweren. Lu- 
stige Gestalten und kleine 
Totenköpfe huschen über 
die Bildfläche und stören die 
Aktivitäten des Helden. 
Der Sound ist hervorragend. 
Was wird Software Projects 
als nächstes verzapfen? 

(cb) 


Name: Hysteria 


System: C64 

Preis: Kass. 32 Mark, Disk 44 Mark 
Hersteller: Software Projects 
Vertrieb: Rushware 

Bezugsquelle: 2 


Spaß: 
Grafik: 
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Sound: .v......n.0 
Idee: .v..u.uau.—.——.0 
Schwierigkeit: ee ee ee@e000 


Weltraum — 
Business 


„E.O.S., Earth Orbit Sta- 
tion“ ist ein komplexes Spiel 
für Leute, die auch in futuri- 
stischen Dimensionen noch 
wirtschaftlich denken kön- 
nen. Sie sollen eine Mark 
auf die andere legen, bis sie 
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den Bau einer Weltraumsta- 
tion auf fernen Planeten fi- 
nanzieren können. Angeb- 
lich ist der ganze Spaß eine 
Simulation tatsächlicher 
NASA-Projekte. Mit 
„E.0.S.“ holt man sich Un- 
ternehmungen auf den Bild- 
schirm, die erst in 50 Jahren 
realisiert werden sollen. Ist 


Modul-Transporte mit Shuttle statt Lkw 


Electronic Arts seiner Zeit 
voraus? Ein netter Werbe- 
gag! Aber es macht Spaß, 
sieben Zukunfts-Missionen 
erfolgreich hinter sich zu 
bringen. Zu Beginn macht 
der Spieler eine kurze Lehr- 
zeit durch. Währenddessen 
soll er sich mit dem Business 
vertraut machen und eine 
Raumstation im Orbit bau- 
en. Wie ein guter Hausmann 
achtet er darauf, daß er 
Bauteile beim günstigsten 
Anbieter einkauft. Wenn 
der Laden richtig läuft, 
müssen Fracht-Raumschiffe 
gebaut werden. Als weitsich- 
tiger Geschäftsmann sorgt 
der Spieler vor und baut 
Docks für die Transporter- 
produktion. In der Shuttle- 
Mission transportiert er Mo- 
dule von der Erde zur 
Raumstation. Sozialen Cha- 
rakter hat dagegen die Mars- 
Mission. Mitten im All wird 


ein Krankenhaus gebaut. In 
den letzten drei Missionen 
beschäftigt sich der — in- 
zwischen gewitzte — Ge- 
schäftsmann mit Mondba- 
sen, forscht nach außerirdi- 
scher Intelligenz und koloni- 
siert den Weltraum. Dabei 
steuert er alle Aktionen mit 
den Cursor-Tasten. Unzäh- 
lige Menüs und die Notwen- 
digkeit, strategische Überle- 
gungen anzustellen halten 
den Käufer lange in Atem. 
(cb) 


Name: E.O.S., Earth Orbit Stations 
System: C64 

Preis: st. b. Red.schluß noch nicht fest 
Hersteller: Electronic Arts 

Vertrieb: Rushware 


Spaß: 
Realisation: 
Grafik: 
Idee: 
Schwierigkeit: ee ee 0000800 
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Aliens auf C16 


Ekelhafte, mordende Aliens 
und die unerschrockene 
Ripley machten vor wenigen 
Monaten Karriere auf C64- 
Bildschirmen. Jetzt bietet 
Electric Dreams das Klasse- 
spiel für den C16 an. In bei- 
den Versionen knüpft die 
Handlung an den Film 
„Aliens“ von Twentieth 


Century Fox an. Cineasten 
kennen die Handlung. Offi- 
cer Ripley hat als Einzige 
das Massaker auf Sternen- 
kreuzer Nostromo überlebt. 
Außerirdische Wesen, von 
deren Existenz niemand vor 
der Schlacht wußte, haben 
die Besatzung getötet. Das 
entsetzliche Blutbad muß 
gerächt werden. Ripley und 
ihre neue Crew starten die 


Ripley, die Unerschütterliche rottet Aliens aus 


Suche nach den Ungeheuern 
und spüren das Aliengesin- 
del schließlich auf einer ver- 
lassenen Raumstation auf. 
Dabei muß jedes Eckchen 
der verwinkelten, verkom- 
menen Alienbehausung 
durchstöbert werden, um 
keines ihrer Bewohner ent- 
schlüpfen zu lassen. Der 
Spieler hält während dieses 
Wagnisses alle Fäden, oder 
besser: die Tasten in der 
Hand. Durch Tippen der 
Anfangsbuchstaben schaltet 
er zwischen Ripley und ihren 
Kameraden Gorman, Bis- 
hop und Hicks hin und her, 
schickt sie kreuz und quer 
durch die unheimliche 
Raumstation, wo sie Aliens 
vernichten, bevor diese die 
Menschen in ihresgleichen 
verwandeln. Das dürfte den 
Außerirdischen allerdings 
schwerfallen, da die Rächer 
der Nostromo mit schreckli- 
chen Waffen ausgerüstet 
sind. Trotzdem sollten 


Freunde zu Hilfe eilen, 
wenn ein Besatzungsmit- 
glied von mehreren Aliens 
angegriffen wird. Dagegen 
sind verschlossene Türen 
kein Problem; sie werden 
einfach mit der Smart Gun 
durchlöchert. All diese viel- 
fältigen Aktionen steuert 
der rächende Spieler über 
Tastatur, was dem Spielspaß 
keinen Abbruch tut. Was an 
Sound fehlt, gleicht die Gra- 
fik aus; hier hat man eine 
der besten grafischen Ge- 
staltungen, die es für den 
C16gibt. (cb) 


Name: Aliens 

System: C64 / C16 (neu) 
Preis: Kas. 25,95 Mark 
Hersteller: Electric Dreams 
Bezugsquelle: 3 


Spaß: 
Grafik: 
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Sound: v..sese.oooono 
Idee: .v.susuu.u.u..,.,;. 
Schwierigkeit: ee eeeee®e00 
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€16-Pleite 
mal vier 


Für den C16 gab es in letzter 
Zeit kaum neue Spiele. 
Doch, wer ständig auf der 
Suche nach C16-Spielefutter 
ist, stößt irgendwann auf 
„Four Great Games, Volu- 
me 2“. Auf den beiden Kas- 


Gerangel um den Ball auf grüner Flur 


setten befinden sich vier alte 
Bekannte: „World Cup“, 
„Lawn Tennis“, „Jet Set 
Willy“ und „Raffles“. 
„World Cup“ startet mit 


dem schrillen Anpfiff des 
Schiedsrichters. Damit geht 
eine wilde Rangelei um den 
Ball los, — veranstaltet von 
fünf Ballspielern pro Mann- 


oPIELE 


schaft. Wilde Action auf 
und vor der Mattscheibe. 
Am Joystick können sich ein 
bis zwei Computerspieler 
vergnügen. Dabei wird im- 
mer der Ballspieler gesteu- 
ert, der dem Ball am näch- 
sten ist. Gelingt es ihm ein 
Tor zu werfen? Dann näm- 
lich entlädt sich ein effekt- 
volles Gewitter auf dem 
Bildschirm. Allerdings ge- 
hen Geflacker und Rüttel- 
Scrolling mit der Zeit auf die 
Nerven und Augen. „Lawn 
Tennis“ kann da nichts wett- 
machen. Ein Totalausfall! 
Spielsteuerung, Grafik und 
Sound sind katastrophal. 
Mit „Jet Set Willy“ kommt 
ein Hit-Oldie zu neuen Eh- 
ren. Willy — dem Spiele- 
freak seit vier Jahren be- 
kannt — pflegt noch immer 
seine Sammelleidenschaft 
und eilt dabei durch ein 
Haus mit unzähligen Zim- 


mern. Eine andere Art lei- 
denschaftlichen Sammelns 
plagt den Gangster aus 
„Raffles“, der fleißig Juwe- 
len aufliest. Solche feinen 
Steine liegen natürlich nicht 
irgendwo herum. So einfach 
sollen Langfinger und Com- 
putergauner es nicht haben, 
deshalb passiert der Klau in 
einem verwirrenden Laby- 
rinth. Das alles ist nicht 
großartig. Wer nicht Ent- 
zugsqualen leidet, sollte auf 
bessere Software warten.(cb) 


Name: Four Great Games 
System: C16 

Preis: Kass. 15,95 Mark 
Hersteller: Micro Value 
Bezugsquelle: 3 


Spaß: 
Grafik: 
Sound: 
Idee: 


Von der 
Leinwand zum 
Computer 


Indiana Jones hat umge- 
schult. Am Computer mimt 
er nämlich einen Archäolo- 
gen, der den Stein von San- 
kara sucht und sich dafür 
auch in Abenteuer und Ge- 
fahren stürzt. Und ohne dies 
geht es nicht, denn der wert- 


Der Held vor gähnendem Schlund 
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volle Sankarastein ist in den 
Händen eines Maharad- 
schas. Doch der hat ihn 
nicht auf ehrenvolle Weise 
erworben. Was für eine fin- 
stere Gestalt dieser indische 
Herrscher ist, stellt Jones in 
den verschlungenen, muffi- 
gen Minen fest. Denn dort 
müssen Kinder als Sklaven 
schuften. Nicht einmal in 
den kurzen Pausen dürfen 


sie frei herumlaufen; da 
werden sie wie Tiere in Käfi- 
gen eingesperrt. Aber Jones 
ist nicht nur Archäologe, 
sondern auch Kinderfreund 
und befreit die Unglückli- 
chen. Nicht ohne Schwierig- 
keiten, versteht sich. Alle 
Wachen stürzen sich auf 
ihn, als er die Käfigschlösser 
mit der Peitsche zerschlägt. 
Hiebe hageln auch auf die 
Angreifer nieder, bis sie nur 
noch Sterne sehen. Diese 
kurze Zeit nutzen Jones und 
die Kinder, um sich in Si- 
cherheit zu bringen. Der 
Held flieht mit einer Lore, 
ständig darauf bedacht, 
nicht von Minenwächtern 
gepackt zu werden oder zu 
entgleisen. Mit Schwung 
geht es also in den dritten 
Level. Jones muß hier den 
Stein von Sankara finden 
und sich damit aus dem 
Staub machen. Ein Aben- 
teuer aus Bits und Bytes, das 
mit gleichem Handlungsfa- 


den und wenig Erfolg über 
die Leinwand flimmert. Ein 
totaler Reinfall wurde das 
Spiel auf dem Atari ST und 
als CPC-Version. Umso 
peinlicher für den Herstel- 
ler, der seit Monaten dop- 
pelseitige Anzeigen in engli- 
schen Fachmagazinen 
schaltete. Doch C64-Besit- 
zer können sich freuen, 
denn sie sind die einzigen, 
die eine gute Grafik zu Ge- 
sicht bekommen. Mit dem 
Sound hapert es jedoch. Nur 
mit Mühe erkennt man im 
Titelsound die Filmmelodie 
wieder. (cb) 


Name: Indiana Jones 

System: C64 

Preis: Kass. ca. 35 Mark, 
Disk. ca. 49,95 Mark 

Hersteller: U.S Gold 

Bezugsquelle: 4 


Spaß: 
Grafik: 
Sound: 
Idee: 


So ein 
Lausejunge! 


Angespornt durch den Er- 
folg mit „Jack the Nipper“, 
produzierte Gremlin Gra- 
phics schnellstens „Jack the 
Nipper II and the Coconut 
Capers“. Man erinnert sich: 
Jack, der kleine Teufelsbra- 


Windelpaket in der Wildnis 
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ten, der nichts als dummes 
Zeug im Kopf hat. In Teil I 
des Spiels hat der Lümmel es 
immerhin geschafft, die 
Bürger seiner Heimatstadt 
so zu echauffieren, daß man 
die Familie des Landes ver- 
wies. Äußerst zerknirscht 


treten Jack und seine Eltern 
die Flugreise nach Austra- 


lien an. In luftiger Höhe, ge- 
nau über unwegsamstem Ur- 
wald, entspringt Jacks rast- 
losem Hirn eine neue Unge- 
heuerlichkeit. Die Wildnis 
ruft. Er will nichts versäu- 
men. Fix funktioniert er sei- 
ne Windeln zum Fallschirm 
um und pendelt sanft ins 
grüne Blättermeer hinab. 
Dort gedenkt er, eine Menge 
Spaß mit den Urwaldtieren 
zu haben. Typisch! Sein Va- 
ter gönnt ihm soviel Spaß 
und Eigenständigkeit nicht. 
Er springt hinterher. Doch 
der Sprößling fühlt sich im 
schwülen Urwald viel zu 
wohl, um sich vom Papi 
schnappen und den Hintern 
versohlen zu lassen. Der 
kleine Strolch mit seinen 
kurzen Babybeinen hätte na- 
türlich keine Chance, die- 
sem Kinderschicksal zu ent- 
gehen, würde er sich nicht 
mit Lianen fortbewegen. 


Sein Glück! Denn nicht nur 
der besorgte Vater, sondern 
auch Eingeborene jagen ihn 
durch die wuchernde Wild- 
nis. Der wohlerzogene Spie- 
ler kann hier endlich seinen 
Ungezogenheiten freien 
Lauf lassen, ... muß er so- 
gar, da er ja möglichst viele 
Frechheitspunkte sammeln 
will. Was für Streiche er 
aushecken soll? Wird nicht 
verraten. Also: Selber spie- 
len und sich über die ver- 
rückte Spielidee freuen! (cb) 


Name: Jack the Nipper II 
System: C64 

Preis: Kass. 35 Mark, Disk. 49,95 Mark 
Hersteller: Gremlin Graphics 
Bezugsquelle: 4 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: ee eeee00®0 
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Autogramme 
Ihrer Majestät 


„Flunky“ ist zwar schon 
einige Monate alt, aber so 
nett, daß wir es trotzdem 
vorstellen. Dienstbote 
Flunky hat nämlich einen 
Job im Buckingham Palast, 
wo er der Königin und Ver- 
wandtschaft (über die wir ja 
bestens aus den Klatschspal- 


ten der Regenbogenpresse 
informiert sind) die ausge- 
fallensten Wünsche erfüllt. 
Er ist immer zür Stelle und 
verrichtet jeden Auftrag 
dienstbeflissen und korrekt. 
Da fragt man sich: Was mo- 
tiviert ihn nur so? Der kö- 
nigliche Schriftzug! Flunky 
ist ein fanatischer Auto- 
grammjäger. Da der pfiffige 
Bursche aber alle Aufträge 


Das ist doch nicht die feine englische Art! 


zur Zufriedenheit der hoch- 
wohlgeborenen Familie aus- 
führt, ist man nicht abge- 
neigt, huldvoll die königli- 
chen Lettern zu Papier zu 
bringen. Doch vor den Er- 
folg haben die Götter den 
Schweiß gesetzt. Und 
Flunky kommt sicher ins 
Schwitzen, während er 
treppauf und treppab und 
durch Fluchten und Flure 
hastet, um alle Kerzen im 
Palast anzuzünden. Vier 
weitere Arbeiten müssen ge- 
tan sein, ehe er sein Auto- 
grammbüchlein zücken darf 
und den Lohn seiner 
Schufterei entgegennimmt. 
Auf seinen Streifzügen gibt 
es in den Gemächern und 
Winkeln des Schlosses aller- 
hand zu entdecken und zu 
erleben. Nicht nur Angeneh- 
mes, wie die Episode im 
prinzlichen Badezimmer be- 
weist. Dort überrascht er 
den reinlichen Prinz Charles 
versehentlich in der Bade- 


wanne. Wie peinlich! Wirft 
der kecke Diener ihm dann 
ein Gummiboot ins Wasser, 
endet die Stippvisite böse. 
Charles stößt Sprechblasen 
aus und die Palastwache eilt 
herbei, um den aufdringli- 
chen Autogrammjäger zu 
erschießen. Ein trauriges 
Ende für ein lustiges Spiel, 
das durch feine Animatio- 
nen veredelt ist. Weniger 
edel: Der Sound, der sich 
auf ein diffuses Rauschen 
der Türen (die quietschen 
doch normalerweise!) be- 
schränkt. (cb) 


Name: Flunky 

System: C64 

Preis: Kass. 35 Mark, Disk. 49,95 Mark 
Hersteller: Piranha 

Bezugsquelle: 4 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: ee eeee@e00CQ0 
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Heulende 
Motoren 

Wer hat nicht schon einmal 
davon geträumt, einen 


Rennwagen zu steuern und 
mit ihn um Kurven und über 
Pisten zu preschen? Amiga- 
Besitzer können dieses irre 
Gefühl mit „Testdrive“ erle- 
ben. Sie werden über fünf 


= spe 


Teilstrecken ein Rennen ge- 
gen die Zeit fahren und fünf 
Flitzer über den unberechen- 
baren Kurs jagen. Als Test- 
wagen stehen vollgetankt 
und schön poliert bereit: 
Porsche 911, Chevrolet Cor- 
vette, Lotus Esprit, Lam- 
borghini Countach und Fer- 
rari Testarossa. Je nach Mo- 
dell unterscheidet sich nicht 


Crash! Auch Rennfahrer haben die linke Spur nicht gepachtet. 


nur ein Cockpit vom ande- 
ren, die Programmierer sind 
soweit gegangen, daß die 
Autos auch die tatsächlichen 
Fahreigenschaften ihrer 
Vorbilder besitzen. Kurven- 
verhalten, Straßenlage, Be- 
schleunigung sind dadurch 
verblüffend realitätsgetreu 
nachgeahmt. Doch damit 
nicht genug der Schikanen. 
Hin und wieder tauchen 
Hinweisschilder mit Ge- 
schwindigkeitsbegrenzungen 

an der Straße auf. Sollte sich 
der Spieler nicht an die vor- 
gegebene Höchstgeschwin- 
digkeit halten, läuft er Ge- 
fahr in eine Radarfalle zu 
geraten. Das wird aber früh- 
zeitig vom Radarwarner an 
der Windschutzscheibe an- 
gezeigt. Falls der Verkehrs- 
sünder die Polizei schon im 
Rückspiegel sieht, ist es sei- 
nen Fahrkünsten überlas- 
sen, ob er sie abhängen kann 
oder einen Strafzettel kas- 


siert. Das belastet zwar nicht 
den Geldbeutel, aber es ko- 
stet Zeit und damit Punkte. 
Die Punktewertung erfolgt 
nach jeder überstandenen 
Teilstrecke. Während der 
Wagen aufgetankt wird, er- 
laubt sich das Programm 
kurze, witzige Kommentare 
über die Fahrweise. Der 
Spieler erfährt ebenfalls, 
wieviel Zeit er bis zum Zwi- 
schenstop gebraucht und 
welche Durchschnittsge- 
schwindigkeit er erreicht 
hat. (Salus) 


Name: Testdrive 
System: Amiga/C64 (neu) 
Preis: 89 Mark 

Hersteller: Accolade 
Bezugsquelle: 1 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: eeeeee0®007C 


We ist die 
Kokosnuß? 


Infocom und ihre Software- 
Meister ruhen und rasten 
nicht. Das Ergebnis uner- 
müdlicher Programmierar- 
beit sehen wir in „Beyond 
Zork“. Es ist das erste Spiel 
aus der Infocom-Reihe, das 
die Grundlagen von Rollen- 
spiel und Adventure in sich 
vereinigt. Etwa 90 Prozent 


sind nach guter, alter Info- 
com-Art aufgebaut (also 
Text und Parser), die restli- 
chen 10 Prozent sind neu 
und haben es in sich. Es ist 
damit möglich, den letzten 
Zug zurückzusetzen, also zu 
löschen. Außerdem kann 
man Objekte, die im Spiel 
vorkommen mit Namen be- 
legen: „Name the red ugly 
dragon ’Ute’, name the 
sword ’Excalibur’“... und so 


Mit Karte und Monsterbestimmungsbuch durch’s Land Quendor. 
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weiter. Auch die Bildschirm- 
darstellung ist verändert. 
Neben dem üblichen Text 
zeigt das Programm eine 
Karte, auf der alle benach- 
barten Räume erscheinen. 
Mit der Maus ist das ge- 
wünschte Ziel schnell ange- 
klickt und prompt erreicht. 
Doch das Interessanteste ist 
der starke Rollencharakter. 
Ein Individuum, das man in 
den Kampf gegen das Böse 
schicken will, kann man 
selbst generieren. Eigen- 
schaften wie Strength, En- 
durance, Dexterity, Intelli- 
gencee, Compassion und 
Luck sind als Charakter- 
bausteine vorhanden. Aller- 
dings sind für Anfänger ver- 
schiedene Charaktere vorge- 
fertigt. Mit der Spielfigur 
wird man in das kleine, aber 
feine Land Quendor ver- 
setzt. Doch das ehemals 
glückliche Land ist in Dun- 
kelheit getaucht und alle gu- 
ten Zauberer sind spurlos 


verschwunden. Das Rätsel 
zu lösen, ist genau das Rich- 
tige für den mutigen Adven- 
ture-Freak. Aber es lauern 
unberechenbare Gefahren 
auf ihn. Um dem Land zur 
einstigen Blüte zu verhelfen, 
muß nur die Kokosnuß ge- 
funden werden. Aber nicht 
irgendeine aus dem Obstla- 
den um die Ecke. Es muß 
die Kokosnuß von Quendor 
sein, denn sie ist der Schlüs- 
sel zur Macht über das wun- 
derbare Land. Wer wagt die 
Rettung von Quendor? 


(Robin Goldmann) 


Name: Beyond Zork 


System: C128 / Amiga 

Preis: 80— 100 Mark, je nach System 
Hersteller: Infocom 

Vertrieb: Ariolasoft 


Spaß: 


Parser: 
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Sound: 


Knattern 
übers Eis 
130 Stundenkilometer kann 


ein „Bobsleigh“ auf eisiger 
Bahn erreichen. Zwei oder 


vier Fahrer lenken dabei den 
Sportschlitten und bugsieren 
ihn durch weiße Hohlwege 
und an halsbrecherischen 
Steilwänden entlang. Sehr 
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schnell ist man als Compu- 
terspieler mitten im winterli- 
chen Tumult. Denn kaum 
hat man zwischen sechs in- 
ternationalen Bobbahnen 
gewählt, sieht man seinen 
Schlitten auch gleich am 
Start. Die Startampel steht 
auf rot, wechselt auf grün. 
Das ist das Zeichen für den 
Bobfreund am Bildschirm. 


Horrende Geschwindigkeit und atemstockende Steilwände 


Mit sanftem Joystickrütteln 
von oben nach unten gibt er 
dem Schlitten den Start- 
schubs. Auf Druck des Feu- 
erknopfes springt er auf sei- 
nen Sitzplatz und hält sich 
fest. Denn da legt sich die 
Crew schon in die erste 
Linkskurve. Vorsicht! Jetzt 
eine Rechtskurve. Glück ge- 
habt, fast hätte es den 
Schlitten aus der Bahn ge- 
tragen. Das Kufengefährt 
hat zwar eine Bremse, doch 
empfiehlt es sich nicht, sie in 
voller Fahrt zu betätigen; 
ein Salto hätte schlimme 
Folgen. An bestimmten 
Punkten des Kurses stoppt 
der Computer die Zwischen- 
zeit und zeigt den jeweiligen 
Bahnrekord an. Am Ziel 
entscheidet die unerbittliche 
Uhr über Sieg und Verlust. 
Neben diesen Actionelemen- 
ten sollen zusätzlich strategi- 
sche Überlegungen durchge- 
spielt werden. So steht je- 


dem Spieler, also jedem 
Bobfahrer eine bestimmte 
Geldsumme zur Verfügung. 
Davon sind Wartungskosten 
oder im Falle eines 
Crashs — Reparaturkosten 
für den Schlitten zu bestrei- 
ten. Diese detaillierte Bobsi- 
mulation, in der auch Wet- 
ter, Kufenart und Training 
berücksichtigt sind, ist so 
gut durchdacht und reali- 
siert, daß man über mittel- 
mäßige Grafik und miesen 
Sound gnädig hinwegsehen 
mag. 

(cb) 


Name: Bobsleigh 

System: C64 

Preis: Disk. 49,95 Mark 

Hersteller: Digital Integration 

Bezugsquelle: Fachhandel 
(über Profisoft) 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: ee ee ee®e00C 
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Jeder kennt ihn aus den 
zahlreichen Verfilmungen 
des Romans von Alexandre 
Dumas: D’Artagnan, der 
junge Bauernbursche, der 
auszog, um Abenteuer und 
Glück zu finden. Mit Athos, 
Porthos und Aramis, den 
drei Musketieren des Königs 
schließt er Freundschaft, 


und die vier Unzertrennli- 
chen überstehen manche Ge- 
fahr. 

Da kommt auch schon die 
erste große Herausforde- 
rung auf den abenteuersüch- 
tigen Bauernsohn zu: Con- 
stance, die große Liebe 
d’Artagnans, bittet um ei- 
nen Dienst für ihre Herrin, 
die Königin von Frankreich. 
Der Auftrag ist höchst deli- 
kat und von politischer 


. wo Musketiere des Königs stilvoll residieren. 


BE NEL NETTER 


Wichtigkeit. Die Königin 
hat ihrem geheimen Gelieb- 
ten, dem Herzog von Buck- 
ingham, drei Diamanten ge- 
geben. Allerdings schenkte 
der König ihr die Steine. 
Cardinal Richelieu, der Ge- 
genspieler des Königs ver- 
sucht, die Königin bei ihrem 
Mann in Ungnade fallen zu 
lassen. Da der Cardinal über 
den Verbleib der Diamanten 
Bescheid weiß, bringt er den 
König dazu, seiner Gattin zu 
mißtrauen, sofern sie die 
Diamanten nicht zum Ball 
trägt. Aber da die Ge- 
schmeide in der Hand eines 
Engländers sind, muß ein 
vertrauenswürdiger Mann 
über den Kanal geschickt 
werden und die Diamanten 
in kürzester Zeit zurückbrin- 
gen. Der Mann ist d’Arta- 
gnan, und d’Artagnan ist 
der Spieler. In diesem Mo- 
ment beginnt das Spiel. Un- 
ser Held weilt mit Constance 
in seinem Haus, wo ihm ein 


Brief der Königin an den 
Herzog von Buckingham 
überreicht wird. Was jetzt 
folgt wird im Multiple- 
Choice-Stil gesteuert. Zwi- 
schen verschiedenen Ant- 
worten wählt der Spieler mit 
der Space-Taste aus und be- 
stätigt mit Return. Wenn 
der Held sich nicht augen- 
blicklich für die richtige 
Maßnahme entscheidet, en- 
det das Spiel mit dem Kom- 
mentar, daß der König nun 
von der Untreue seiner Frau 
überzeugt ist und Richelieu 


die Macht an sich reißt. 
(Salus) 


Name: The Three Musketeers 
System: Amiga 

Preis: 74 Mark 

Hersteller: Reline 

Bezugsquelle: Fachhandel 


Spaß: 
Grafik: 


...s.u.ase.üoüööunn 
.v.ssuss.e.oöönn 
Sound: .essesoooooon 
Idee: .v...a...—<.s@‚;.ÖOQ 
Schwierigkeit: ee ee ee0000 


Januar/88 UM 137 


GR 


} 
) 


Basketball- 
Variationen 


Sportspiele wie „Summerga- 
mes I und II“, „Winterga- 
mes“, „Worldgames“ und 
„California Games“ von 
Epyx lassen Spielerherzen 
höher schlagen. Doch jetzt 
soll „Street Sports Basket- 
ball“ erneut Adrenalinschü- 
be auslösen. Und zwar mit 
Spielen, wie sie amerikani- 
sche Kinder auf Straßen, in 
Hinterhöfen, auf Parkplät- 
zen und Schulhöfen spielen. 


Vor wenigen Wochen er- 
schien der erste Titel der 
Street Sports-Serie: „Street 
Sports Baseball“. Er spielt 
im gleichen Milieu. 

Das Nachfolgespiel verlangt 
vom Spieler die Wahl eines 
der vier vorgegebenen 
Schauplätze. Will er sein 
Match auf einem quirligen 
Schulhof oder einer ruhigen 
Straße im gepflegten Vorort 
austragen? Oder auf einem 
Parkplatz inmitten des brau- 
senden Großstadtverkehrs? 
Oder wagt er sich gar in die 
dunklen Häuserschluchten 
der Slums? Wo auch immer 
der Tumult stattfinden soll, 
Ein- und Zwei-Spieler-Mo- 
dus stehen zur Wahl. Ist ein 
Match gegen den Computer 
gewünscht, wird der Schwie- 
rigkeitsgrad — easy, inter- 
mediate, tough — einge- 
stellt. Schnell noch den oder 
die Namen eingeben, eine 
Münze werfen und der erste 
Mannschaftsführer darf be- 
ginnen, sich seine Truppe 
zusammenzustellen. Aus ei- 
nem zusammengewürfelten 
Haufen von neun Sportsleu- 
ten sucht er drei aus. Dabei 
sind deren persönliche Ei- 
genheiten zu berücksichti- 
gen. Da ist ein ganz roman- 
tischer Typ, der sich wäh- 
rend des Spiels in seine Tag- 
träume versenkt und ein al- 
ter Basketball-Hase, der von 
Kindesbeinen an dieses Stra- 
Benspiel liebte. Ein wenig 
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....’kraftvoll in den Korb 


Glück und Intuition, und 
die richtige Rotte ist beein- 
ander. Mit der Zeit entwik- 
kelt man Gefühl für die 
Auswahl eines gewinnträch- 


BEN TERN EN, 


tigen Teams. — Die Anzahl 
der Korbtreffer, die das Sie- 
gerteam erzielen soll, wer- 
den eingegeben. Daraufhin 
spannt der Computer seinen 


Besitzer auf die Folter und 
lädt kurz nach. Und eine 
letzte Einstellung ist not- 
wendig, um aufgestauten 
Energien freien Lauf zu las- 
sen: Dann geht’s los. Ein 
Wahnsinns-Spaß! Der Ball 
fliegt hoch. Blaue Spieler 
stürmen vor. Grüne stellen 
sich in den Weg. Ein Tritt 
und die Blauen haben wie- 
der freie Bahn. Mit einem 
Weitwurf landen sie den 
ersten Treffer. Doch Mann- 
schaft Grün ist nicht faul, 
die Gegner werden wie Fah- 
nenstangen im Training um- 
dribbelt. Bautz! Der ball- 
führende Spieler hat verges- 
sen, daß nicht in der Sport- 
halle gespielt wird; Bord- 
steinkanten, Gulliess und 
Steinbrocken werden zum 
Verhängnis. Ein Blauer 
nutzt die Chance, greift den 
Ball, rast zum Korb und 
spielt mit der Hauswand 
Doppelpaß. Hakenwurf, 
..im Korb! Kein Schieds- 
richter ruft die Spieler zur 
Ordnung. Also foulen die 
Spieler nach Lust und Lau- 
ne. Wer im Weg steht, wird 
mit einem Tritt (Feuer- 
knopf) weggeräumt, daß es 
ihn — platsch! auf’s 
Pflaster haut. Soviel Action 
mit toller Grafik und Ani- 
mation verdienen die Spit- 
zennote „10“. Allerdings ist 
der Computer auch in 
Schwierigkeitsstufe „tough“ 
noch kein gewitzter Basket- 
baller, aber ein guter Verlie- 
rer. Ein Superspiel! Da darf 
man von „Street Sports Soc- 
cer“, das die Nachfolge an- 
treten wird, viel erwarten.(cb) 


Name: Street Sports Basketball 
System: C64 

Preis: Kass.ca.35Mark, Disk.ca.49Mark 
Hersteller: Epyx 

Vertrieb: Rushware 
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„Western Games“ 
kunterbuntes und amüsan- 
tes Spiel, das mit phantasti- 
schen Ideen nur so gespickt 
ist. Zu Beginn wird der Spie- 
ler allerdings vor den Kopf 
gestoßen. Da kommt er tod- 
müde in einer verträumten 
Western-Stadd an und 
wünscht sich nur noch ein 
weiches Lager. Doch damit 
wird es nichts. Denn er be- 
gegnet ausgerechnet Tottle, 
dem süßen Cowboy-Opa. 


„Mach Dich für’n Wett- 
kampf im Saloon fertig!“ 
grunzt er den Wild-West- 
Touristen an. „Hä? Was 
für’n Wettkampf?“ Der ah- 
nungslose Spieler aus Old 
Germany ist total verdattert. 


„Solange ich lebe, gibt’s hier 
schon die Sitte, daß jeder 
Neue in der Stadt ’ne Probe 
bestehen muß. Bist doch ’n 
echter Kerl, oder? Yeah! Je- 
denfalls trittste gegen 
MacSlow an. Is unser bester 
Mann.“ — Ja, so ungefähr 
mag sich das angehört ha- 
ben. — Und um nun diese 
unangenehme Sache schnell 
hinter sich zu bringen, teilt 
der Spieler dem Computer 
mit, ob er allein ist oder sei- 
nen Kumpel dabei hat. Ge- 
gen den müßte er nämlich in 
dem kuriosen Westernspiel- 
chen antreten. Aber er ist al- 
lein. Der alte MacSlow wird 
ihm nicht erspart bleiben. 


Und ehe er sich’s versieht 
sitzt er ihm gegenüber. In 
diesem Moment höchster 
Konzentration fragt der 
Computer, ob er sich denn 
zutraut, alle Disziplinen 
durchzuspielen oder sich be- 
scheiden auf drei oder vier 
beschränkt. Den Namen will 
er auch noch wissen. End- 
lich! Es geht los. Erste Diszi- 
plin ist Armdrücken. Die 
beiden Athleten (MacSlow 
wird vom Computer gema- 
nagt) sitzen sich gegenüber, 


ist ein’ 


Sich Respekt verschaffen mit lässigem Muskelspiel 


einer Horde Cowboys an 
den Nebentischen fallen vor 
Spannung fast die Augen 
aus den Köpfen. Zwischen 
kräftigen Zügen aus dem 
Bierkrug lassen sie in Form 
von Sprechblasen bissige 
Sprüche und fachmännische 
Kommentare los. Der Spie- 
ler sammelt Kraft, indem er 
den Joystick (Tastatur- 
Steuerung ist ebenfalls mög- 
lich) nach unten drückt, auf 
dem Bildschirm beobachtet 
er im Anzeigenfeld, wie sei- 
ne Kraft wächst. Mit dem 
Feuerknopf übt er Druck ge- 
gen den Arm des Gegners 
aus. Wenn keiner hinschaut, 
hilft er auch mal mit dem 


Hand zu halten. Achtung! 
Der Barkeeper gibt aus sei- 
ner Verschanzung hinter der 
Theke das Zeichen. Am 
Bildschirm zeigt der Com- 
puter zwei wild pumpernde 
Herzen, — so nervös sind 
die Kontrahenten! Nervosi- 
tät wirkt sich nicht gerade 
gut auf die Treffsicherheit 
aus. Wie unangenehm für 
die beiden Spezies mit den 
Bierkrügen! Wer diese Etap- 
pe gewinnen will, muß fünf 
mal so schnell sein wie sein 
Herausforderer. Aber nichts 
ist unmöglich. Das zeigt sich 
auch in der olympischen 
Disziplin des Weitspuckens. 
Da beißt der Westernsport- 


Wettmelken: nichts für Milchgesichter 


anderen Arm nach. Aber 
das sollte der Schiedsrichter 
nicht spitzkriegen. Es folgt 
Biergläser-Zerknallen. Zwei 
drollige Cowboys sind dazu 
verdonnert, Bierkrüge ohne 
Zittern und Schlottern in der 


BT TOMELONEIEF VORN 


ler ein Stück Kautabak ab 
(Joystick nach oben) und 
kaut ihn kräftig durch (Joy- 
stick schnell rütteln). Spuck- 
winkel und -stärke einstel- 
len, und im hohen Bogen 
fliegt der Tabak durch den 


Saloon. In der nächsten 
Runde schauen die beiden 
Helden einem tanzenden 
Westerngirl zu und versu- 
chen, dessen Bewegungen so 
gut wie möglich nachzuah- 
men. Für die nächste Sport- 
art haben ein paar Burschen 
tatsächlich zwei Kühe ge- 
holt. Ein spannendes Wett- 
melken beginnt. Im Takt 
wiegen sich die Euter, was 
den Spieler dazu veranlaßt, 
den Joystick ebenfalls im 
Takt zu bewegen. Gemeine 
Wettstreiter versetzen ihrem 
Gegner einen kleinen Stoß, 
um ihn aus dem Rhythmus 
zu bringen. Natürlich nur, 
wenn der Schiedsrichter ge- 
rade nicht hinschaut. 

Das war eine anstrengende 
Sportart für den ungeübten 
Spieler. Er bekommt Hun- 
ger. Dem kommt die letzte 
Disziplin sehr entgegen: 
Wettessen. Eine riesige 
Schüssel klumpiger Suppe 
steht dampfend vor den 
Wettstreitern. Mit dem Joy- 
stick taucht man den Löffel 
ein, nimmt einen ordentli- 
chen Mundvoll und kaut 
(Joystick nach rechts und 
links) durch. Runterschluk- 
ken. Hinterher ein Schluck 
Bier (Joystick nach oben), 
dann rutscht es besser. Und 
dann schlägt die Stunde der 
Wahrheit. Konnte sich der 
Fremde Respekt verschaf- 
fen, oder hat er kläglich ver- 
sagt und traut sich nie wie- 
der in die kleine Stadt? So- 
was Verrücktes! Eine Super- 
idee, mit cartoonartiger 
Grafik und perfekter Ani- 
mation. (cb) 


Name: Western Games 


System: Amiga/C64 

Preis: 59,95 Mark/Kass. 29,95 Mark, 
Disk. 39,95 Mark 

Hersteller: Micro Partner 

Vertrieb: Ariolasoft 
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Soft — Rambo 


Militärische Simulationen 
sind die Spezialität von Mi- 
cropose-Chef Bill Stealey. 


Denn immerhin war er Air- 
Force-Pilot und kennt sich 
in diesem Genre aus. Mit 
„Airborne Ranger“ er- 
scheint jetzt eine Simula- 
tion, die den Spieler ins auf- 
regende Reich der Fall- 
schirmjäger versetzt. Diese 
Einheit gehört neben Marine 
und den Kampfpiloten zur 
Elite der U.S. Army, so in- 
formiert Bill Stealey. 


Schließlich haben sie knall- 
harte Jobs und lebensge- 
fährliche Aufgaben zu erfül- 
len. In „Airborne Ranger“ 
wurden diese Aspekte her- 
vorragend impliziert. Da 
kann sich der Spieler zwi- 
schen zwölf verschiedenen 
Missionen entscheiden. Je 
nach eigenen Fähigkeiten, 
wählt er den Schwierigkeits- 
grad. Acht Stufen bietet das 
Programm. Damit wird das 
Spiel nie langweilig, zumal 
es Action und strategische 
Elemente unter einen Hut 
bringt. Denkfaule können 
strategische Überlegungen 
aussparen und sich mit 
’Practise Ranger’ der puren 
Action verschreiben. Wer 
sich selbst herausfordern 
will, legt sich eine Roosteer- 
Diskette an. Sie speichert die 
Daten des Fallschirmjägers: 


Name, Kampfeigenschaf- 
ten, erfolgreiche Missionen 
und Ähnliches. Das spornt 
dazu an, sich ständig zu ver- 
bessern. Auf welchen Ner- 
venkitzel wird er sich einlas- 
sen? Wird er gegnerische 
Munitionsdepots zerstören, 
unter abenteuerlichen Um- 
ständen ein Codebuch steh- 
len, einen Offizier aus dem 
feindlichen Lager entfüh- 
ren, Pipelines sabotieren, 
Radarsysteme des Gegners 
zerstören, Geiseln befreien 
oder ein neuentwickeltes 
Flugzeug des Feindes foto- 
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Aussicht auf feindliches Gebiet aus luftiger Höhe ... 


grafieren? Die Wahl erfolgt 
in zahlreichen Menüs und 
Tafeln. Dann wird der In- 
halt der Mission erläutert, 
— und Action ohne Ein- 
schänkung beherrscht den 
Bildschirm. Die Landschaft 
scheint unter dem Flugzeug 
wegzusausen. Im Augenwin- 
kel erkennt der Pilot feindli- 
che Stellungen, Minenfel- 
der, Radarantennen, Bun- 


er EEE 


. ..„ und von felsigen Hügeln. 


ker, Stacheldraht, Wasser- 
gräben. Über Gebirgszüge 
und zugefrorene Seen don- 
nert die Maschine hinweg. 
Kurz darauf sichtet er das 
Gelände, das der Jäger 
durchqueren soll. Er prägt 
sich schnell markante Ge- 
ländepunkte ein (natürlich 
ist es der Spieler, der sich 
anhand einer Karte mit dem 


Terrain vertraut macht). 
Doch nicht nur Kenntnis der 
Gegend hilft dem Fall- 
schirmspringer weiter. Er 
läßt drei gut gepolsterte 
Taschen am Fallschirm her- 
absegeln und bemüht sich, 
sie möglichst günstig in der 
Landschaft zu verteilen, da 
sie Ersatzmunition für die 
MG, Handgranaten und Le- 
bensmittel enthalten. Im 


Notfall kann der Held auf 
diese kleinen Depots zurück- 
greifen. Jetzt ist es auch 
schon höchste Zeit, endlich 


abzuspringen! Sekunden 
später hängt er in den Seilen 
des Fallschirms und wird 
sanft zu Boden getragen. 
Szenenwechsel — Der Ein- 
zelkämpfer steht muttersee- 
lenallein im unwirtlichen 


Gelände. Aufmachung und 
Action erinnern an Spiele 
wie „Rambo“ und „Com- 
mando“. Allerdings soll der 
Akteur in „Airborne Ran- 
ger“ nicht unbeschränkt her- 
umballern — er muß ja Mu- 
nition sparen — und alle 
Feinde töten, die ihm begeg- 
nen. Da ist es weit schlauer 
und friedlicher, sich zu ver- 
stecken und den Gegner pas- 
sieren zu lassen. Seine Ener- 
gien kann er ebensogut so- 
lange bewahren, bis er durch 
einen Fluß schwimmen oder 
über einen vereisten See 
marschieren muß. Diese ört- 
lichen Gegebenheiten sind je 
nach Mission verschieden. 
Von Arktis über Gebirge bis 
Wüste reichen die Schau- 
plätze, und in jeder Land- 
schaftsformation sind die 
Hindernisse anders angeord- 
net. Nachdem all diese Wi- 
drigkeiten überwunden sind, 
erfüllt der Held den eigentli- 
chen Auftrag und zerstört 
beispielsweise ein Muni- 
tionsdepot durch eine gut 
gezielte Handgranate. Seine 
Erfolgsstatistik zeigt an, 
wieviele Munitionslager er 
vernichtet und wieviele Fein- 
de er hingemetzelt hat (ziem- 
lich geschmacklos!). Ganz 
klar, das Spiel enthält sehr 
brutale Elemente. Gekonnte 
Grafik und Umsetzung 
machen das Ganze sehr rea- 
listisch und für zarte Gemü- 
ter ungeeignet. Aber wer am 
Abknallen von Soldaten- 
spritess keinen Anstoß 
nimmt, wird mit „Airborne 
Ranger“ auf seine Kosten 
kommen. (cb) 


Name: Airborne Ranger 
System: C64 

Preis: Disk. 69,95 Mark 
Hersteller: Micropose 
Vertrieb: Rushware 


Spaß: 
Grafik: 
Sound: 
Idee: 
Schwierigkeit: eeeeeee0®0Q 


RUN 


O-THEK 


Die Programme des Jahres 1986 auf 12 Disketten. 
Preis 168,60 DM. Bestell-Nr.: 616 


Die Prograrnme des Jahres 1985 auf 12 Disketten. 
Preis 168,60 DM. Bestell-Nr.: 515 


Alle Programme des Jahres 1985, 1986 und 1987 
in Kassetten auf 36 Disketten. Preis nur 398,— DM. 
Bestell-Nr.: 567 


Zum Neuen Jahr neue 
Preise. Knallhart haben wir 
sie — tief wie die 
Temperaturen der Zugspitze 
— gesenkt. 


Die Programme des Jahres 1987 
auf 12 Disketten — entsprechend den Heften — 
für 664 und/oder 128 und/oder C 16, Plus 4 
in der Kassette. Preis 168,60 DM. Bestell-Nr.: 700 


Die besten C 16/Plus 4-Programme des Jahres 
1987 auf Diskette: Preis: 14,80 DM. Bestell-Nr.: 161 


Bestellnummern und Preise der 


Monatsdisketten: 

Monat Jahr Bestell.-Nr.: | Preis Monat Jahr Bestell.-Nr.: | Preis 

Januar 85/86/87 |501/601/701 [814,80 DM Juli = 507/607/707 [414,80 DM 

Februar 85/86/87 |502/602/702 | 4 14,80 DM August [85/86/87 |508/608/708 |& 14,80 DM 

März 85/86/87 503/603/703 414,80 DM September [85/86/87 |1509/609/709 |4 14,80 DM 

April 85/86/87 |504/604/704 |& 14,80 DM Oktober [85/86/87 |510/610/710 |4 14,80 DM 

Mai 85/86/87 |505/605/705 |4 14,80 0M- November 85/86/87 Ban la14,800M 
Juni 85/86/87 |506/606/706 [4 14,80 om Dezember 85/86/87 |512/612/712 | 14,80 0M 


_15 64 00-804 
CW-Publikationen GmbH 
RUN-O-THEK 


Enpfängerabschnitt | en Ars era Einlieferungsschein/Lastschriftzettel 


DM DM er 


a Fe en rt 
15 64 00-804 Be — Be 15 64 00-804 München 

ander (mit Postieitzat a I to Postg j 

Be bzw. Postüberwe CW-Publikationen GmbH 

Kennwort: RUN-O-THEK 15 64 00-804 


Postfach 40 04 29 |Po amt 
8000 München 40 München 8000 München 40 


eg CW-Publikationen GmbH 
Kennwort: RUN-O-THEK 


Postfach 40 04 29 


zweck 


| 

| 

| 

| sstellungsdatun Interschrift nn a ne 
| ' 


Verlag 
> CW-Publikationen GmbH 
RUN-O-THEK 


O-THEK 


RUN-Sonderhefte 


SH 1/1985 (2 Disk. 5%") Preis 26,— DM. 
Bestell-Nr.: 513 
SH „Siegerprogramme“ ( 2 Disk. 54’) Preis 26,— DM. 
Bestell-Nr.: 613 
SH 1/1987 TIPS und TRICKS (2 Disk. 5%’ ” ) 
Preis 26,— DM. Bestell-Nr.: 713 


AMIGA-WELT 1 (2 Disk. 334°’) Preis 39,— DM. 
Bestell-Nr.: 716 
AMIGA-WELT 2 (3 Disk. 3/4’ ’ ) Preis 54,— DM. 
Bestell-Nr.: 720 


RUN-AMIGA-Super (1 Diskette mit „Invader-Craft“ 
Preis 24,80 DM. Bestell-Nr.: 724 


Wieder lieferbar ist das Kernal-Expansionsport für C 64, 
128 und SX64. Damit können Sie ein anderes oder eigenes 


Betriebssystem installieren. Das Modul ist absturzsicher und 
wird nur am Expansionsport aufgesteckt. Preis 79,— DM. Bestell-Nr.: 309 


Bestellschein 


U Ein ausgestellter Verrechnungsscheck liegt bei. 


U] Ich bestelle per Nachnahme. 


U Ich bestelle per Nachnahme zuzüglich NN-Gebühren. 


Gesamtpreis 


juapuam4aa syleyjyez 
Japo ulayasjje3sag 
Jepamjus ayıq 


jusgqiaay>s 

Jegqsaj ınB usswıuunu | 
-ja}s9g pun yıuyasuy | 
“wawen ag 


jS1jusJungeb 
BunsiamisanIsog sie Bunpusmien Iag 
na 081 (Diueiyssegun) IC OL JeQn 
id 06 Er WEL Ug 


(uegouse seq Bunssjanumg ap iq pam) 
SUENIUEZ alp In} J4NgEH 


(uazjnusq Jebupjdıwa Uep ve Veßunnanıy nz us) 
WWW. HONECOMPOTERWORLD.TOM 
I 


N\7 


für den 128er. Eine anwenderfreundliche Datenbank für 
professionelle Anwendung. Artikel-Lagerverwaltung, 
Kunden/Rechnung/Mahnwesen, Tageskasse, 
Adressen drucken und verwalten und noch mehr als 
128 Möglichkeiten, Ordnung zu schaffen und Papier 
zu sparen. Mit ausführlicher Beschreibung. 
Preis 142,— DM. Bestell-Nr.: 730 
Bitte beachten Sie: Alle Preise sind Barzahlungspreise 
und sind nur möglich, wenn die angegebene 
Zahlungsart berücksichtigt wird. Zu jeder Bestellung 
kommt ein Versandkostenanteil von 4,— DM hinzu. Bei 
Nachnahmebestellung zuzüglich NN-Gebühr. 
Zu den ersten 100 Bestellungen gibt es eine 


Datum 
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Straße, Hausnr. /Posttach 


Land (nur bei Auslandsbestellung) 


—- Für Mitteilungen an den Empfänger ———— 
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Neujahrsüberraschung: Testprogramme auf Kassetten oder 
Disketten aus der Redaktion. 


| RR SIaJdjwesag 
_'y (la}ueus]soxpuesH 
| EEE + = 

NQ/SIald NQ/SIald 


1 WQ/S13ld IN-NaISag | 490 


zu al 
uayaıyos ayı, 


| spyr 
„IHE LAST NINJA’- KARTEN 


. . für die Level 4 bis 6 


Level 4: 
Gesuchte Gegenstände: Seil 
Hindernisse: Verwirrendes Labyrinth 
Lösungsweg: — Bis zum Seil gehen 
— An der Kreuzung nach rechts gehen 
— An der Kreuzung nach rechts gehen 
Zum Apfel gehen (übernächster Screen) 
An der Kreuzung nach links gehen 
— An der Kreuzung nach rechts gehen 
An der Kreuzung nach links gehen 
— An der Kreuzung geradeaus gehen 
— Geradeaus gehen 
— Zweimal nach rechts gehen 
— Mit den Seilen an den Ringen der Mauer 
hochklettern 


Level 5 

Gesuchte Gegenstände: Ninja Magic 

Hindernisse: keine 

— Rote Tür mit dem Schlüssel öffnen 
— Unter der Statue hindurchlaufen 

— Ninja Magic holen 

— Den Ausgang zu Level 6 benutzen 


Lösungsweg: 


Bann m 
BOERERE „. ihn. = 


Level 6 
Gesuchte Gegenstände: Betäubungsmittel, Schriftrollen 
Hindernisse: Samurai Standbild 
Lösungsweg: — Flasche mit dem Betäubungsmittel holen 
— Die Rose in die letzte Vase auf der linken 
Seite stellen 
— Den Hund mit der Flasche betäuben, 
klappt dies nicht beim ersten Versuch, so- 
fort den Raum verlassen und nochmals 
betreten, der Vorrat ist unbegrenzt. Die 
Flasche ist wie die Rauchbombe zu hand- 
haben 
— Die Ninja Magic (kleiner Fleck auf dem 
Boden) berühren und unter dem Samurai 
Standbild durchlaufen 
— Den Krieger besiegen, dies ist der schnell- 
ste und gefährlichste Gegner im ganzen 
Spiel, also Vorsicht! 
— In das kleine Quadrat springen; berühren 
sie das große Quadrat, verliert man ein 
Leben 
— Die Schriftrollen berühren 


Level 6: Hier 
ragt bedrohlich 
die Samurai 
Statue auf. 


man sie lässig 
und stellt sich 
dem Krieger 
zum Kampf. 
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(Robert Albrecht) 


Level 5: Auf der 
Suche nach der 
Ninja Magic 
gibt es keine 
Probleme. 
Aufregender 
wird es im 
nächsten Level. 


Level 6: Hier 
ragt bedrohlich 
die Samurai- 
Statue auf, 
Dank Ninja 
Magic 
überwindet 
man sie lässig 
und stellt sich 
zum Kampf mit 
dem Krieger. 


Hitparade 
Was Leser am liebsten spielen... 


Barbarian (Psygnosis) 
Shanghai (Activision) 
Garrison (Rainbow Arts) 
Goldrunner (Microdeal) 


Uninvited (Mirrorsoft) 


The Last Ninja 
(System 3/ Activision) 


Defender of the Crown 
(Mindscape) 

California Games (Epyx) 
Vermeer (Ariolasoft) 


Pirates (Mindscape) 


Sommer Olympiade 
(Kingsoft) 

Winter Olympiade 
(Kingsoft) 


Terra Nova (Anco) 
Hollywood Poker 
(Golden Games) 


5. Terra Cognita 
(Codemasters) 
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GRDOoE VERLDSUNG 


In Heft 12 konnten sich 100 
Leser auf der Gewinnerliste 
wiederfinden. Diesen Monat 
geben wir wieder 100 Gewin- 
ner bekannt, die sich über 
einen Joystick oder ein un- 
terhaltsames Spiel freuen 
können; sie finden ihren Na- 
men auf Seite 125. Aller- 
dings bitten wir um Geduld; 
die Versendung der Spiele 
und Joysticks dauert ihre 
Zeit, aber demnächst wird 
der Postmann das ersehnte 
Päckchen ins Haus tragen. 
Hält der eine oder andere 
dann ein Spiel in der Hand, 
das für seinen Computer 
nicht paßt, tauscht er ein- 
fach mit einem Freund, der 
vielleicht nur eine Datasette 
und kein Diskettenlaufwerk 
hat, oder umgekehrt. 

Aber auch in dieser Ausgabe 
gibt es wieder eine Verlo- 


sung, wo Sie nicht nur Spiele 
gewinnen können. Ariola- 
soft spendiert den Lesern 
zehn T-Shirts mit einem 
Aufdruck vom brandneuen 
„Jack The Nipper II“. Wenn 
Sie ein Review von diesem 
lustigen und originellen 
Spiel lesen wollen, blättern 
Sie ein paar Seiten zurück. 
So ein feines T-Shirt kann 
natürlich nicht jeder gewin- 
nen, aber alle Teilnehmer 
haben eine Chance. Nur den 
Coupon ausfüllen, auf eine 
Postkarte kleben und adres- 
sieren an: 


CW-Publikationen 
Redaktion RUN 
Postfach 40 04 29 
8000 München 40 


Gewinner wird 
benachrichtigt. 


Jeder 
uns 


von 
Also, 


viel Spaß beim Mitmachen! 


Bezugsquellen 


Die meisten Programme 
sind in großen Kaufhäusern 
erhältlich. Wer aber keine 
solche Einkaufsmöglichkeit 
in der Nähe hat, interessiert 
sich für Bestelladressen. 
In den Reviews sind unter 
„Bezugsquelle“ nur Zahlen 
angegeben. Sie können die 
besprochene Software unter 
den hier zugeordneten 
Adressen beziehen: 
1 DTM Computerprodukte, Born- 
hofweg 5, 6200 Wiesbaden; 
2 CJS, An der Tiefenried 27, 
3000 Hannover 1; 
Compy Shop, Gneisenaustr. 29, 
4330 Mühlheim/Ruhr; 
Elektronik von A-Z, Strese- 
mannstr. 95, 1000 Berlin 61; 
Seemüller, Schillerstr. 18, 
8000 München 2; 
Foto-Quelle-Agentur Hirschfeld, 
Langestr. 33, 2870 Delmenhorst; 
7 Utopia Software, Kellerstr. 11, 
8000 München 80; 
Funtastic Computerware, 
Müllerstr. 44, 8000 München 5 
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JETZT ALLE 2 MONATE! 


Die nächste Ausgabe ab 19. 2. 1988 am Kiosk 


Einstieg 
in BASIC, C 
und ASSEMBLER 


Kreatives 
für Grafiker und 
Soundkünstler 


Listing 
Animierte 
Netzgrafik 
mit 3D-Effekt 
u.V.a. 


\i 

g mach 
sa Weadroo 
zit Amiga? 
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Preview The Future! 
PROJECT: STEALTH FIGHTER 
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Die Zukunft läßt grüßen! 


PROJECT: STEALTH FIGHTER 


tealth Fighter, das heißeste Eisen und Gesprächsthema Nr. 1, OL EWR 
enn es um die moderne militärische Luftfahrt geht. 
!Die Technologien des Zeitalters der Raumfahrt und das Wissen MicroProse Software, Bruchweg 128-132, 4044 Kaarst 2 


ochspezialisierter Ingenieure ließen ein Flugzeug entstehen, das Vertrieb: Rushware Mitvertrieb: micno-Hännen 
Jauch von modernen Radargeräten so gut wie nicht mehr geortet Distribution in Österreich: Karasoft 
| erden kann. 


‚Stealth Fighters wurden speziell für schwierigste Einsätze geschaf- 

fen - verlangen aber auch die Bedienung durch beste und qualifi- 

zierteste Piloten. Die neue Simulation von MicroProse gibt Euch 

‘die Gelegenheit, heute schon zu erfahren, wie es ist, ein Flugzeug 
on morgen zu fliegen! 


‚PROJECT: STEALTH FIGHTER 


‚Wieder eine fantastische Simulation von MicroProse. Erhältlich für 
"Euren Commodore 64/128 K auf Cassette und Diskette. 


Der Geschmack von 
Freiheit und Abenteuer. 
Marlboro. 
u . 
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